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SUMMARY 


This  report  was  prepared  by  Hughes  Helicopters,  Inc.  (HHI),  Culver  City, 
California  90230,  for  the  Applied  Technology  Laboratory,  U.  S.  Army 
Research  and  Technology  Laboratories  (AVRADCOM),  Fort  Eustis, 

Virginia  23604,  under  Contract  DAAJ02-77-C-0076, 

The  purpose  of  this  program  was  to  develop  the  necessary  methodology  for 
applying  fiber-reinforced  composite  materials  to  helicopter  joint  and  attach¬ 
ment  fitting  designs  that  permit  disassembly  of  major  components. 

For  this  program,  primary  joints  and  fittings  representative  of  high- 
performance  helicopters  (the  YAH-64  in  particular)  were  selected  for 
evaluation.  A  generic  design  methodology  approach  was  used  to  make  the 
data  that  was  developed  applicable  to  ongoing  and  fixture  helicopter  programs. 

|  The  objective  of  this  program  was  to  develop  basic  concepts  for  competitive 
helicopter  joints  and  fittings  using  composite  materials.  These  materials 
must  be  capable  of  being  readily  integrated  into  composite  components  and 
(attached  to  other  components,  both  composite  and  metal,  such  that  the 
weight  and  cost  effectiveness  of  the  advanced  composite  component  is  an 
improvement  over  the  baseline  metallic  component  alternatives. 

All  detail  design  and  fabrication  aspects  of  the  three  advanced  composite 
joint  and  fitting  types  that  were  fabricated  and  tested  during  this  contracted 
effort  are  documented  in  this  report,  along  with  the  analytical  and  experi¬ 
mental  results  of  the  laminated  angle  bracket  study. 
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INTRODUCTION 


The  purpose  of  this  design  guide  is  to  document  all  detail  design  and 
fabrication  aspects  of  three  advanced  composite  joint  and  fitting  types  that 
were  investigated  under  the  Advanced  Concepts  for  Composite  Structure 
Joints  and  Attachment  Fittings  Program  (Contract  DAAJ02-77-C-0076), 

The  three  joint  and  fitting  types  analyzed  are: 

a.  Type  A  —  Fuselage-Tailboom  Joint  (Figure  1) 

b.  Type  D  —  Spar  Box-Rib  Joint  (Figure  2) 

c.  Type  K  —  Copilot  Seat  Fitting  (Figure  3) 

The  steps  involved  in  the  design,  fabrication,  and  testing  of  the  three  joint 
and  fitting  types  are  illustrated  in  flowchart  form  in  Figure  4.  During  the 
initial  screening  and  evaluation  phase  of  the  program,  the  configurations 
and  critical  applied  loads  of  the  metal  baseline  joints  were  identified. 

Design  concepts,  composite  materials,  and  fabrication  methods  selected 
according  to  structural  efficiency,  cost,  and  weight  considerations  were 
incorporated  into  the  preliminary  design  drawings.  Preliminary  hand 
analyses  of  the  joints  were  then  carried  out  using  conservative  design 
allowables  obtained  from  the  existing  data  base. 

A  small  number  of  each  joint  and  fitting  type  were  fabricated  for  tool 
proofing  and  subsequent  testing  by  nondestructive  methods  (hammer  tapping 
and  harmonic  analysis).  E-'fh  joint  and  fitting  was  then  tested  statically, 
and  Types  A  and  D  were  also  fatigue  tested.  The  results  of  these  experi¬ 
ments  were  compared  with  the  analytical  predictions  discussed  in  Volume  I 
of  this  report. 

A  cost  effectiveness  study  was  carried  out  to  relate  cost  and  weight  differ¬ 
ences  between  the  composite  joints  and  their  baseline  metal  counterparts. 

Finite  element  modeling  consisted  of  a  NASTRAN  analysis  to  determine 
critical  interlaminar  shear  properties  in  the  radius  of  a  general  angle 
bracket,  and  NASTRAN  models  were  prepared  for  each  individual  joint. 

The  experience  and  data  gained  from  fabrication,  testing,  and  modeling  of 
these  joints  were  used  to  finalize  the  detail  design  drawings.  Accessibility, 
simplicity,  environmental  protection,  weight,  cost,  and  interchangeability 
were  the  factors  weighed  most  heavily. 


Figure  1.  Fuselage-Tailboom  Joint 


DESIGN  PROPERTIES 


The  composite  material  allowables  and  angle  properties  in  this  report  are 
given  for  Kevlar  49  aramid  fiber  and  Thornel  T300  graphite  fiber  impreg¬ 
nated  with  an  epoxy  resin  system  obtained  from  Applied  Plastics  Co.,  Inc. 
(2434  resin/2347  hardener).  These  materials  have  been  qualified  to  HHI 
material  specifications. 

Either  the  wet  filament  winding  or  hand  layup  technique  can  be  used  accord¬ 
ing  to  HHI  process  specifications.  The  cure  cycle  for  this  resin  system  is: 

a.  4  hr  at  140°  F  ±10°  F 

b.  2  hr  at  170°  F  ±10°  F 

c.  2  hr  at  250°F  ±10°F 
COMPOSITE  ALLOWABLES 

The  graphite  and  Kevlar  composite  allowables  used  in  the  design  analyses 
of  the  joints  were  developed  during  previous  work  using  advanced  composite 
materials1  and  are  reproduced  in  Appendix  A.  Laminate  moduli,  strength, 
and  other  physical  property  values  are  given  as  a  function  of  fiber  angle  for 
fiber  volume  ratios  of  0.55  and  0.60,  The  laminates  are  constructed  of 
symmetric  angle  plied  layers  of  ±a  (alpha)  orientation.  Fiber,  resin,  and 
composite  input  data  terms  are  defined  as: 

AF  (AR)  =  Fiber  (resin)  coefficient  of  thermal  expansion, 
in.  /in.  /°  F 

AFT  =  Fiber  transverse  coefficient  of  thermal 
expansion,  in.  /in.  /°F 

EF  (ER)  =  Fiber  (resin)  elastic  modulus,  psi 

EFT  -  Fiber  transverse  elastic  modulus,  psi 


Woodall,  R.E.,  ADVANCED  TECHNOLOGY  HELICOPTER  LANDING  GEAR, 
Hughes  Helicopters,  Division  of  Summa  Corporation;  USAAMRDL  Technical 
Report  77-27,  Eustis  Directorate,  U.S.  Army  Air  Mobility  Research  and 
Development  Laboratory,  Fort  Eustis,  Virginia,  April  1977. 
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FCU  =  Fiber  or  composite  ultimate  compressive 
strength,  psi 

FSU  =  Resin  ultimate  shear  strength,  psi 

FTU  =  Fiber  or  composite  ultimate  tensile  strength,  psi 

GF  =  Fiber  shear  modulus,  psi 

RHO  =  Composite  density,  lb/ft3 

RHOF  (RHOR)  =  Fiber  (resin)  density,  lb/ft3 
» 

UF  (UR)  =  Fiber  (resin)  Poisson's  ratio  (dimensionless) 

VF  (VR)  =  Fiber  (resin)  volume,  percent 

WF  (WR)  =  Fiber  (resin)  weight,  percent 

Composite  properties  are  abbreviated  as  follows: 

ALPHA  =  Fiber  angle,  deg 

AX  =  Coefficient  of  thermal  expansion,  X  direction, 
in.  /in.  /°F 

AY  -  Coefficient  of  thermal  expansion,  Y  direction, 
in.  /in.  /°F 

EX  =  Elastic  modulus,  X  direction,  psi 
EY  =  Elastic  modulus,  Y  direction,  psi 
FXCU  =  Ultimate  compressive  strength,  X  direction,  psi 
FXTU  =  Ultimate  tensile  strength,  X  direction,  psi 
FXY  =  Ultimate  shear  strength,  psi 
FY CU  =  Ultimate  compressive  strength,  Y  direction,  psi 
FYTU  =  Ultimate  tensile  strength,  Y  direction,  psi 


GXY  =  Shear  modulus,  psi 


The  simple  turn- the -corner  angle  design  shown  at  the  bottom  of  Figure  6 
can  be  used  in  many  cases  in  which  composite  components  must  be  capable 
of  disassembly.  One-inch-wide  T300  graphite,  Kevlar  49,  E-glass,  and 


THICKNESS  <T)i  INCH 


FIBERGLASS.  GRAPHITE/ EPOXY.  OR  TEDLAR 
WASHER.  0.2  IN.  ID.  1/2  TO  3/4  IN.  OD, 
TYP  TWO  PLACES.  1/32  TO  3/32  IN.  THICK 


Figure  6.  Angle  Joint  Allowable  Loads 


S-glass  angle  joints  with  repetitions  of  the  (0/^45/90)  layup  sequence  were 
fabricated  and  tested  to  determine  their  allowable  ultimate  strengths.  Pre¬ 
liminary  results  of  these  tests  are  given  below: 

a.  The  corners  of  thinner  angles  straighten  out  elastically  for 

a  distance  of  up  to  two  or  three  times  their  initial  radii.  Next 
the  matrix  fails  in  delamination,  and  finally  the  fibers  fracture 
at  ultimate  load. 

b.  The  concept  of  yield  strength  being  two-thirds  of  ultimate 
strength  is  not  transferable  from  metals  to  composites. 
Permanent  set  may  occur  anywhere  from  75  percent  (thin 
angles)  to  90  percent  of  ultimate  strength  (thicker  angles). 

c.  Thick  sections  are  more  ductile  than  thin  ones. 

d.  Allowable  load  versus  thickness  in  composite  angles  is  shown 
in  Figure  6  for  an  eccentricity  of  0.  5  inch.  Composite  angles 
of  varying  eccentricity  and  thickness  must  be  tested  before 
nomographs  similar  to  those  already  well-established  for 
aluminum  can  be  developed. 


DRAWING  PREPARATION 


A  number  of  common  industry  practices  are  used  in  the  detail  design  draw¬ 
ings  to  describe  the  composite  components  of  the  three  joint  and  fitting  type 

PLY  ORIENTATION 

The  reference  fiber  orientation  of  a  composite  component  is  shown  in  Fig¬ 
ure  7.  The  0-degree  direction  is  defined  as  the  longitudinal,  lengthwise, 
or  major  load  direction  of  the  component. 


Figure  7.  Fiber  Orientation  Reference  Axis 
STACKING  SEQUENCE 

The  stacking  sequence  of  any  number  of  plies  can  be  represented  by  giving 
the  orientation  of  each  ply  or  group  of  plies,  separated  by  slashes,  braces, 
and  brackets  according  to  a  conventional  system  of  notation.  The  stacking 
sequence  of  Detail  5  of  Joint  Type  K  is  shown  in  Figure  8  as  an  example. 

A  stacking  sequence  table  such  as  the  one  shown  in  Table  1  can  be  placed 
on  the  engineering  drawing  to  help  organize  the  stacking  sequence  and 
orientation  of  any  relatively  complex  composite  component. 

A  large-scale  schematic  detail  of  the  component  should  be  provided  along 
with  the  stacking  sequence  table.  In  the  cross  section  shown  in  Figure  9, 
each  ply  is  drawn  and  appropriately  identified  so  that  ply  dropoffs  can  be 
clearly  defined.  The  minimum  distance  between  ply  dropoffs  is  0.  2  inch. 
The  maximum  thickness  of  each  dropoff  is  0.030  inch,  which  is  approxi¬ 
mately  equivalent  to  two  plies  of  fabric. 
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SYMMETRIC 
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TWO  REPETITIONS  OF 
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Figure  8.  Stacking  Sequence 
TABLE  1.  SAMPLE  STACKING  SEQUENCE 


PLY  NO. 

PLY 

orientation 

MATERIAL 

PLY 

THICKNESS 

PI 

±45 

E 

P  q 

l 

0.0135 

P2 

±45 

0.0135 

P3 

0 

0.007 

P4 

0 

P5 

0 

P6 

0 

P7 

0 

P8 

0 

0.007 

P9 

±45 

0.0135 

P10 

0 

0.007 

PU 

0 

P12 

0 

P13 

0 

P14 

0 

P15 

0 

0.007 

P16 

±45 

0.0135 

P17 

±45 

J 

, 

n 

a. 

C.0135 

NOTES 


AND  [8j|  REFER  TO  THE  GENERAL  NOTES  ON 
THE  ENGINEERING  DRAWING  IN  GUESTION 
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FUSELAGE- TAILBOOM  JOINT  (TYPE  A) 


Joint  Type  A-represents  the  attachment  of  a  composite  helicopter  tailboom 
to  a  forward  fuselage.  This  tension  bolt  design  includes  steel  fittings  within 
a  graphite /Kevlar  hybrid  channel,  which  is  joined  to  the  graphite /Kevlar 
hybrid  skins  of  the  sandwich  structure. 

The  composite  fuselage-tailboom  joint  incorporates  design  concepts  and 
manufacturing  techniques  to  minimize  weight  and  cost  while  efficiently 
carrying  ultimate  loads.  The  final  detail  design  of  the  test  panel  that 
incorporates  this  joint  is  shown  in  Figure  10. 

DESIGN  CRITERIA 


The  process  of  evaluating  and  comparing  numerous  design  concepts  and 
carrying  out  the  final  detail  design  was  controlled  by  the  following  criteria: 

a.  Loads  -  Flight  condition  loads  transferred  across  the  fuselage- 
tailboom  joint  must  be  efficiently  carried  by  either  a  tension 
bolt  fitting  or  shear  splice.  The  tension  bolt  concept  was  chosen 
to  permit  direct  interchangeability  with  an  existing  metal 
tailboom. 

b.  Accessibility  -  Given  the  tension  bolt  concept,  the  composite 
tailboom  should  be  attached  from  the  outside.  Access  holes 
must  therefore  be  provided  in  the  skin  or  other  integral  fitting. 

c.  Simplicity  -  The  wet-filament-winding/cocuring  fabrication  pro¬ 
cess  eliminates  much  time  and  effort  normally  spent  in  secondary 
bonding  or  mechanical  fastening  of  precured  parts.  Wet  filament 
winding  is  especially  applicable  to  fabrication  of  cylindrical 
structures  such  as  taiibooms, 

d.  Environmental  protection  -  Exterior  helicopter  components  such 
as  fuselage-tailboom  joints  are  designed  for  improved  environ¬ 
mental  resistance  in  accordance  with  established  HHI  process 
specifications.  External  steel  parts  such  as  the  -3  fitting  are 
plated  by  various  methods  approved  for  aircraft  structures.  Non- 
metallic  external  parts  such  as  the  -9  inner  or  -11  outer  skins 
are  primed  before  they  are  painted  according  to  specification. 


STRESS  ANALYSIS 


In  the  hand  stress  analysis  of  Joint  Type  A,  the  following  loads  and 
stresses  were  determined: 

a.  Critical  ultimate  loads  due. to  crashworthiness  conditions 

b.  Local  -5  channel  reaction  load  intensities  in  tension  and 
compression 

c.  Fiber  stresses  in  ±15°  graphite  and  ±45°  Kevlar 

d.  Shear  stresses  between  the  -5  channel  and  the  outer  facesheet 

e.  Lamina  strains 

f.  Honeycomb  sandwich  buckling  and  wrinkling 

g.  Bending  of  the  -3  fitting 
FABRICATION  METHODS 

Joint  Type  A  was  fabricated  to  simulate  the  methods  used  to  fabricate  a 
composite  tailboom,  and  so  the  inner  and  outer  skins  and  the  0°  plies  of 
the  -5  channel  were  fabricated  using  the  wet  filament  winding  method.  The 
-5  channel  was  laid  up  manually  on  a  male  tool,  using  the  0°  plies  men¬ 
tioned  above  and  the  ±45°  Kevlar  fabric,  and  then  staged  in  a  vacuum  bag. 
The  channel  was  trimmed,  assembled  with  honeycomb  core,  and  cocured 
with  the  skins.  Pressure  during  cure  was  provided  by  hoop-wound  fila¬ 
ments  (90°)  rather  than  by  vacuum  bag  or  autoclave  to  avoid  collapsing  the 
mandrel.  No  film  adhesive  was  used  because  the  skins  were  wound  with 
sufficient  resin  to  create  filleting  in  the  core.  The  fabrication  sequence 
is  shown  in  Figure  11, 
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Figure  ll.  Manufacturing  Steps:  Type  A 
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SPAR  BOX-RIB  JOINT  (TYPE  D) 


The  composite  spar  box-rib  joint  was  designed  to  replace  its  metal  equiva¬ 
lent  in  a  helicopter  vertical  stabilizer.  This  joint  includes  a  rib  that  secures 
the  attach  fittings  and  carries  the  shear  induced  by  coupled  applied  loads 
from  the  tail  rotor.  In  addition,  corner  spar  caps  are  cocured  into  the  sand¬ 
wich  box  structure  to  carry  longitudinal  bending  loads.  The  detail  drawing 
of  Joint  Type  D  is  shown  in  Figure  12. 

DESIGN  CRITERIA 

Detail  design  of  the  final  concept  was  controlled  by  the  following  criteria: 

a.  Loads  -  Critical  tension  and  compression  loads  from  the  tail 
rotor  strike  condition  that  are  applied  to  the  fittings  must  be 
transferred  through  the  rib  to  the  box  structure  in  shear.  The 
rib  provides  stability  to  the  metal  fittings. 

b.  Cost  -  Wet  filament  winding  was  chosen  as  the  fabrication 
method  to  minimize  the  cost  of  the  spar  box  structure.  The 
fitting  design  was  simplified  to  minimize  machining  and 
assembly  costs. 

c.  Environmental  protection  -  The  gearbox  attach  fitting  includes 
two  internal  4140  steel  fittings  that  require  a  finish  system 
for  bonding  and  environmental  protection,  and  the  external 
graphite/ epoxy  skin  of  a  composite  vertical  stabilizer  spar 

is  primed  and  painted,  both  in  accordance  with  approved 
aircraft  process  specifications. 

STRESS  ANALYSIS 

In  the  hand  stress  analysis  of  Joint  Type  D,  the  following  were  determined: 

a.  Critical  loads  at  the  tail  rotor  gearbox  attachment  fittings 

b.  Section  properties 

c.  Internal  forces  {shear  flows  in  spar  box  walls  and  internal  ribs) 

d.  Shear  tear-out  of  lug  through  composite  skins 
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e.  Shear  between  steel  fitting  and  graphite  rib 

f.  Rib  stability 
FABRICATION  METHODS 

Fabrication  of  Joint  Type  D  simulated  the  methods  to  be  used  during  produc 
tion.  The  plies  for  the  four  -17  spar  caps  were  wet  filament  wound  on  a 
drum  mandrel,  cut  into  patterns,  and  laid  up  on  a  male  tool.  Each  part 
was  staged  under  vacuum  and  trimmed  before  final  assembly.  The  -5  inter 
nal  rib  was  laid  up  with  graphite  fabric  over  a  foam  core  and  staged  in  a 
jfemale  die  mold.  The  rib  was  then  assembled  into  the  spar  mandrel  prior 
to  winding  of  the  inner  skin.  Honeycomb  core  was  placed  on  the  mandrel, 
and  then  the  outer  skin  was  wound.  These  fabrication  steps  are  shown  in 
Figure  13. 


3 
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P-17  SPAR  CAP  FABRICATION 
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Figure  13.  Manufacturing  Steps:  Type  D 


COPILOT  SEAT  FITTING  (TYPE  K) 


The  copilot  seat  fitting  design,  derived  from  the  metal  seat  attachment 
fitting  design,  utilizes  the  turn-the -corner  angle  concept  to  carry  (mainly) 
tension  loads.  The  final  design  drawing  is  shown  in  Figure  14. 

DESIGN  CRITERIA 


Detail  design  of  the  final  concept  was  controlled  by  the  following  criteria: 

a.  Configuration  -  The  substitution  of  composite  materials  for 
metals  was  the  primary  change  in  this  design  because  the  seat 
fitting  configuration  and  its  location  could  not  be  changed  sig¬ 
nificantly.  Space  limitations  also  limited  the  design  alternatives. 

b.  Loads  -  Interlaminar  shear  stress  in  the  corner  of  the  composite 
angles  due  to  lug  pullout  loads  was  an  omnipresent  factor 
during  the  design  phase. 

c.  Cost  -  Manual  layup  of  fabric  provided  the  most  cost-effective 
fabrication  technique.  Wet  filament  winding  of  the  plies  could 
not  be  justified  due  to  the  low  material  requirement. 

d.  Environmental  protection  -  Since  the  copilot  seat  fitting  is 
inside  the  helicopter,  no  finish  is  required. 

STRESS  ANALYSIS 


The  composite  layup  sequence  was  determined  by  lug  shearout  stresses  in 
the  following  stress  analysis  procedure: 

a.  Critical  vertical,  horizontal,  and  lateral  applied  loads 

b.  Internal  loads  and  bolt  reactions 

c.  Composite  tensile  stresses,  allowing  for  bolt  hole  concentration 
factors 

d.  Composite  angle  strength  (see  Figure  6) 


e. 


Lug  bearing  and  shearout  stresses 
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FABRICATION  METHODS 


Joint  Type  K  was  fabricated  by  laying  up  preimpregnated  graphite  fabric  on 
four  aluminum  blocks:  these  were  then  assembled  for  cocuring.  Three 
fittings  were  cut  and  trimmed  from  the  cured  assembly,  and  bushings  were 
installed.  The  fabrication  process  is  shown  in  Figure  15. 


Figure  15.  Manufacturing  Steps:  Type  K 


INSPECTION  METHODS 


In  manufacturing  these. joints  and  fittings,  as  many  components  as  possible 
are  co.cured  during  a  single  cycle.  While  this  method  of  assembly  has  sig¬ 
nificant  advantages  from  a  manufacturing  standpoint,  it  makes  it  impossible 
to  individually  inspect  the  various  components  that  make  up  an  assembly. 

The  types  of  defects  that  can  degrade  the  performance  of  composite  struc¬ 
tures  are: 

a.  Delaminations 

b.  Unbonded  areas 

c.  Porosity  or  voids 

d.  Resin-rich  or  resin-starved  areas 

e.  Geometry  of  internal  details 

f.  Thick  bondlines 

g.  Position  and  bond  of  metal  inserts 

h.  Foreign  object  inclusions 

The  importance  of  these  defects  varies  with  their  size  and  location  in  rela¬ 
tion  to  the  size  and  geometry  of  the  particular  joint  or  fitting  design  in  which 
they  occur.  Assurance  that  the  finished  part  has  been  fabricated  free  of 
internal  defects  and  has  the  proper  internal  geometry  can  only  be  obtained 
using  nondestructive  inspection  techniques. 

These  techniques  include  the  hammer  tapping  method,  in  which  a  small 
hammer  is  used  to  tap  the  surface  of  the  composite  component.  The  flat 
sound  produced  by  tapping  over  an  unbonded  area  or  void  is  easily  detected, 
even  by  an  untrained  ear,  and  an  experienced  inspector  can  readily  determine 
and  mark  the  boundaries  of  the  unbonded  area  or  void.  Subsequent  tapping 
can  determine  the  growth  of  an  unbonded  area  if  it  occurs. 

The  Shurtronics  harmonic  bond  tester  operates  by  physically  transmitting 
high-frequency  vibrations  into  bonded  materials  and  monitoring  the 
resulting  acoustical  response  with  a  small  hand-held  transducer.  The 
instrument  is  calibrated  with  a  sample  specimen  of  the  same  materials  and 
layup  as  the  part  unclf.r  examination,  with  known  defects  built  in  for  refer¬ 
ence.  With  the  instrument  calibrated  for  a  known  density  and  thickness,  a 
reduction  in  local  thickness  caused  by  an  unbonded  area  or  other  defect 
results  in  an  amplitude  or  phase  change  in  the  received  signal.  Liquid 
coupling  is  not  required  for  testing,  and  the  probe  can  easily  be  used  in 
any  position.  , 


COST /WEIGHT  TRADE  STUDY 


The  cost  effectiveness  of  each  composite  fitting  design  was  measured  by- 
considering  the  individual  weight  reductions  afforded  by  switching  to  com¬ 
posites  and  the  cost  increments  vis-a-vis  the  metal  baseline.  To  differ¬ 
entiate  between  cost  effective  and  cost  ineffective  designs,  the  cost 
differences  and  the  weight  reductions  were  plotted  in  Figure  16.  The  pop¬ 
ulation  of  cost-vs -efficiency  points  is  divided  into  two  domains  by  the  cost 
effectiveness  break-even  lines,  with  cost-effective  designs  residing  above 
and  to  the  left  of  the  lines.  Cost-effective  designs  possess  features  that 
add  value  (in  the  form  of  weight  reduction)  that  more  than  offsets  the  extra 
expense.  The  slope  of  the  break-even  tine  is  determined  by  the  value  of 
*  eliminating  a  pound  of  structure  from  a  helicopter  without  altering  its 
structural  performance. 

The  cost  of  saving  weight  can  also  be  portrayed  by  plotting  part  weight 
versus  total  cost  (Figure  17). 


* 


The  relationship  between  the  cost  and  weight  of  composite  fittings  implies 
that  the  total  cost  per  pound  is  $174  for  Joint  Type  D,  $329  for  Type  A, 
and  $593  for  Type  K.  The  $300-per-pound  line  is  added  to  the  graph  for 
comparison. 
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Figure  16.  Break-Even  Partitioning  of  Composite  Fittings 
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FINITE  ELEMENT  ANALYSES 


ANGLE  BRACKET  MODEL 


Finite  element  models  C-l  and  C-2  were  developed  to  predict  the  inter¬ 
laminar  shear  present  in  the  radius  of  an  angle  (Figure  18).  Using  the 
half-symmetrical  C-l  model  (Figure  19),  variations  in  washer  diameter, 
washer  distance  from  the  bend,  lamina  orientation,  lamina  thickness, 
and  bend  radius-to-thickness  ratio  can  be  investigated.  Using  the  C-2 
one-strip  model,  variations  in  stacking  sequence  can  be  analyzed  (Figure  20). 


To  minimize  computer  costs,  the  analysis  was  conducted  in  two  stages. 

The  bracket  was  first  analyzed  as  a  single-layer  (solid  laminate),  multistrip 
structure  (C-l  model)  to  identify  the  critical  strip  and  the  corresponding 
boundary  conditions.  In  the  second  stage  of  the  analysis,  the  critical  strip 
was  further  divided  into  many  discrete  layers  (C-2  model),  to  represent 
the  actual  laminated  structure,  and  analyzed  in  terms  of  the  boundary 
conditions  obtained  from  the  C-l  model  to  identify  interlaminar  stresses. 


It  is  possible  to  conduct  many  parametric  analyses  using  the  C-l  and  C-2 
models.  Figure  21  shows  the  relationship  between  normalized  shear  stress 
(defined  as  interlaminar  shear  stress  t  divided  by  net  tension  stress  o-q) 
and  the  width  of  the  angle  bracket.  It  should  be  noted  that,  since  the  inter¬ 
laminar  shear  stress  in  composite  components  ranges  from  1,000  to  5,000 
pounds  per  square  inch,  the  net  tension  stress  is  limited  to  r  /2.  5,  or 
400  to  2,000  pounds  per  square  inch.  Actual  test  results,  however,  indicate 
higher  allowables. 


INDIVIDUAL  JOINT  MODELS 


NASTRAN  models  were  developed  for  Joint  Types  A,  D,  and  K.  Instead  of 
developing  one  three-dimensional  model  for  each  type,  a  pair  of  two- 
dimensional  models  was  constructed  to  minimize  development  time.  The 
models  for  Joint  Types  A,  D,  and  K  are  shown  in  Figures  22  through  27. 
Orthotropic  plates,  with  appropriate  mechanical  properties,  are  used  in  all 
instances. 


Figure  19.  NASTRAN  Model  C-l 


igure  21.  Normalized  Shear  Stress  vs  Bracket  Angle  and  Width 


Figure  22.  NASTRAN  Model  of  Joint  Type  A  (Top  View) 


SECTION  B-B  OF  DRAWING  No.  430-009  (Figure  10) 


SECTION  A-A  OF  DRAWING  No.  430-009  (Figure  10) 


Figure  23.  NASTRAN  Model  of  Joint  Type  A  (Side  View) 
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figure  24, 


NASTRAN  Model  of  Joint  Type  D  (Top  View) 
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Figure  26,  NASTRAN  Model  of  Joint  Type  K  (Front  and  Side  Views) 


Figure  27.  NASTRAN  Model  of  Joint  Type  K 
(Internal  Loads) 
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APPENDIX  A 


COMPOSITE  MATERIAL  ALLOWABLES 

The  graphite  and  Kevlar  composite  allowables  used  in  the  design  analyses 
documented  in  this  report  are  given  in  Tables  A-l  through  A-14.  Laminate 
moduli,  strength,  and  other  physical  property  values  are  given  as  a  func¬ 
tion  of  fiber  angle  for  fiber  volumes  of  0.  55  and  0.  60.  Fiber,  resin,  and 
composite  input  data  terms  are  defined  as: 

AF  (AR)  =  Fiber  (resin)  coefficient  of  thermal  expansion, 
in.  /in.  /°F 

AFT  =  Fiber  transverse  coefficient  of  thermal 
expansion,  in./in. /°F 

EF  (ER)  =  Fiber  (resin)  elastic  modulus,  psi 

EFT  =  Fiber  transverse  elastic  modulus,  psi 

FCU  =  Fiber  or  composite  ultimate  compressive 
strength,  psi 

FSU  =  Resin  ultimate  shear  strength,  psi 
FTTJ  =  Fiber  or  composite  ultimate  tensile  strength,  psi 
GF  =  Fiber  shear  modulus,  psi 

■5 

RHO  =  Composite  density,  lb /ft J 
RKOF  (RHOR)  =  Fiber  (resin)  density,  lb/ft^ 

UF  (UR)  =  Fiber  (resin)  Poisson's  ratio  (dimensionless) 

VF  (VR)  =  Fiber  (resin)  volume,  percent 
WF  (WR)  =  Fiber  (resin)  weight,  percent 


Composite  properties  are  abbreviated  as  follows: 


ALPHA  =  Fiber  angle,  deg 

AX  =  Coefficient  of  thermal  expansion,  X  direction, 
in.  /in.  /°F 

AY  =  Coefficient  of  thermal  expansion,  Y  direction, 
in.  /in.  /° F 

EX  =  Elastic  modulus,  X  direction,  psi 
EY  =  Elastic  modulus,  Y  direction,  psi 
FXCU  =  Ultimate  compressive  strength,  X  direction,  psi 
FXTU  =  Ultimate  tensile  strength,  X  direction,  psi 
FXY  =  Ultimate  shear  strength,  psi 
FYCU  =  Ultimate  compressive  strength,  Y  direction,  psi 
FYTU  =  Ultimate  tensile  strength,  Y  direction,  psi 
GXY  =  Shear  modulus,  psi 

UXY  =  Poisson's  ratio,  perpendicular  to  X  direction 
(dimensionless) 

UYX  =  Poisson's  ratio,  perpendicular  to  Y  direction 
(dimensionless) 


TABLE  A-l 


FIBER  PROPERTIES 

VF  *  0.5500 

WF  *  0.6536 

RHOF  *  0.0636 

FTU  •  325000.0 

FCU  •  215000.0 

UF  •  0.2200 

EF  *  3.400E+07 
EFT  ■  1.300E+06 

GF  *  3. 500E+06 
AF  ■  -2. 400E-07 
AFT-  2. 960E-06 

FIBER  PROPERTIES 

VF  *  0.6000 

WF  •  0.6984 

RHOF  ■  0.0636 

FTU  ■  325000.0 

FCU  *  215000. 0 

UF  *  0.2288 

EF  •  3. 400E+07 

EFT  •  1. 300E+ 06 

GF  •  3. 500E+06 

AF  *  -2. 4006-07 
AR*  2. 960E-06 

COMPOSITE  PROPERTIES 


RESIN  PROPERTIES 

COMPOSITE  PROPERTIES 

VR  ■  0.4500 
WR  -  0.3464 
RHUF*  a  0412 
FSU  ■  8000.0 

ER*  4.700E+05 
AR*  4. 000E-05 
UR*  a  3500 

1 

RESIN  PROPERTIES 

COMPOSITE  PROPERTIES 

VR  *  a  4000 
WR  •  0.3016 
RHOF*  a 0412 
FSU  ■  8000.0 

ER*  4. 700E-* 05 
AR*  4.000E-05 
UR*  G 3500 

RHO  *  0.0546 

FTU  «  195000.0 

FCU  *  129000. 0 

FSU  *  8000.0 

TABLE  A-2.  GRAPHITE  MODULI  (VF  =  0.  55) 


ALPHA 

EX 

EY 

GXY 

0.00 

1. 891E+07 

9.108E+05 

5.665E+05 

1.00 

1.890E+07 

9. 107E+05 

5.717E+05 

2.00 

1.886E+07 

9.111E+05 

5.873E+05 

3.00 

1.879E+07 

9. 119E+05 

6. 133E+05 

4.00 

1.869E+07 

9. 129E+05 

6.494E+05 

5.00 

1.856E+07 

9. 143E+05 

6.956E+05 

6.00 

1.839E+07 

9. 160E+05 

7. 515E+05 

7.00 

1.819E+07 

9.180E+05 

8.170E+05 

8.00 

1. 795E+07 

9. 204E+05 

8, 917E+05 

9.00 

1.  767E+07 

9. 231E+05 

9. 753E+05 

10.00 

1.734E+07 

9. 263E+05 

1. 067E+06 

11.00 

1.697E+07 

9. 299E+05 

1.167E+06 

12.00 

1.655E+07 

9. 339E+05 

1.275E+06 

13.00 

1.609E+07 

9.385E+05 

1.389E+06 

14,00 

1.559E+07 

9.435E+05 

1.510E+06 

15.00 

1.504E+07 

9. 492E+05 

1.637E+06 

16.00 

1.445E+07 

9. 555E+05 

1. 769E+06 

17.00 

1.383E+07 

9. 624E+05 

1.905E+06 

18.00 

1. 319E-*  07 

9. 701E+05 

2. 045E+06 

19.00 

1.253E+07 

9. 786E+05 

2. 189E+06 

20.00 

1.185E+07 

9. 880E+05 

2. 335E+06 

21.00 

1.117E+07 

9. 984E+05 

2.483E+06 

22.00 

1.049E+07 

1. 010E+06 

2.632E+06 

23.00 

9.826E*06 

1.022E+  06 

2. 781E+06 

24.00 

9. 175E+06 

1.036E+06 

2. 930E+06 

25.00 

8. 547E+06 

1. 051E+06 

3. 078E+06 

26.00 

7.844E+06 

1.068E+06 

3. 224E+06 

27.00 

7.371E+06 

1.087E+06 

3.388E+06 

28.00 

6.830E+06 

1.107E+06 

3.508E+06 

29.00 

6. 323E+06 

1, 130E+06 

3.645E+06 

30.00 

5. 849E+06 

1. 154E+06 

3.  777E+06 

31.00 

5.410E+06 

1.181E+06 

3. 903E+06 

32.00 

5.004E+06 

1.211E+06 

4. 024E+06 

33.00 

4.630E+06 

1. 244E+  06 

4. 139E+06 

34.00 

4. 286E+06 

1. 281E+  06 

4. 246E+06 

35.00 

3. 972E+06 

1.321E+06 

4.346E+06 

36.00 

3.685E+06 

1.365E+06 

4.438E+06 

37.00 

3.424E+06 

1.414E+06 

4.522E+06 

38.00 

3. 187E+06 

1.468E+06 

4.596E+06 

39.00 

2.971F+06 

1.527E+06 

4. 662E+06 

40.00 

2.  775E+06 

1.593E+06 

4. 718E+06 

41.00 

2.697E+06 

1.665E+06 

4. 764E+06 

42.00 

2.436E+06 

1. 745E+06 

4.800E+06 

43.00 

2. 291E+06 

1.834E+06 

4.826E+06 

44.00 

2. 159E+C6 

1.932E+06 

4. 842E+06 

45.00 

2. 039E+06 

2.048E*06 

4. 847E+06 
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TABLE  A-3.  GRAPHITE  MODULI  (VF  =  0.  60) 


ALPHA 


EX 

EY 

GXY 

2.059E+07 

9. 451E+05 

6.343E+05 

2.Q57E+07 

9. 453E+05 

6.400E+Q5 

2. 053E+07 

9. 439E+05 

6.569E+05 

2.045E+07 

9. 470E+05 

6.850E+05 

2.035E+07 

9. 485E+05 

7. 242E+05 

2.020E+07 

9.504E+05 

7. 742E+05 

2.002E+07 

9. 528E+05 

8. 348E+05 

1. 980E-*07 

9.556E+05 

9. 058E+05 

1. 954E+07 

9, 590E+05 

9, 887E+05 

1.924E+07 

9. 628E+05 

1. 077E+06 

1.838E+07 

9, 672E+05 

1. 177E+06 

1. 848E+07 

9.  722E+05 

1.205E+06 

1. 802E+07 

9.  778E+05 

U02E+06 

1. 752E+07 

9. 840E+05 

1. 526E+06 

1. 698E+07 

9. 989E+05 

1657E+06 

1, 637E+07 

9, 985E+Q5 

1.794E+06 

1.573E+07 

1. 002E+06 

1. 937E+06 

1. 906E+07 

1, 016E+06 

2, 065E+06 

1.435E+07 

1.026E+06 

2, 237E+06 

1. 363E+07 

1. 038E+06 

2, 392E+06 

1.290E+07 

1, 058E+06 

2.551E+06 

1.216E+07 

1.063E+06 

2.711E+06 

1, 143E+07 

1, 078E+06 

2. 873E+06 

1,07  IE +07 

1.094E+06 

3.834E+06 

1. 001E+07 

1. 112E+Q6 

3, 196E+06 

9.332E+06 

1. 131E+06 

3, 356E+06 

8.687E+06 

1. 152E+06 

3.515E+06 

8. 066E+06 

1. 175E+06 

3.670E+06 

7.484E+06 

1.200E+06 

3.822E+06 

6.937E+06 

1.227E+06 

3.970E+06 

6.427E+06 

1.257E+06 

4.113E+06 

5. 957E+06 

1290E+U6 

4.250E+06 

5.514E+06 

U26F.+06 

4.381E+06 

5. 110E+06 

1.366E+06 

4.505E+06 

4.778E+06 

1. 409E+06 

4.622E+06 

4.398E+06 

1. 466E+06 

4. 738E+06 

4.086E+06 

1. 508E+06 

4. 830E+06 

3. 801E+06 

1. 565E+06 

4.920E+06 

3. 542E+06 

1.627E+06 

5. 001 E +06 

3. 306E+06 

1, 696E+06 

5. 072E+06 

3. 091E+06 

1. 771E+06 

5. 133E+06 

2. 895E+06 

US4E+06 

5. 183E+06 

2. 718E+06 

1. 845E+06 

5.222E+06 

2. 556E+06 

2. 045E+06 

5.250E+06 

2. 409E+06 

2. 155E+06 

5.267E+06 

2.276E+06 

2. 276E+06 

5.273E+06 

av/#iia 


S 


ALPHA 


4,00 
5.00 
6.00 
7.00 
8.00 
9.00 
10.00 
11.00 
12-  °8 
13.0° 
14.00 
15.00 
16.00 
17.00 
18.00 
19.00 
20.00 
21.00 
22.00 
23. 00 
24.00 
25.00 
26.00 
27.00 
28,00 
29.00 
30.00 
41.00 
32.00 
33.00 
34.00 
35.00 
36.00 
37.00 
38.00 
39.00 
40.00 
41.00 
42.00 
43.00 
44.00 
45.00 


78750.0 

78296.6 

76949.2 

74744.6 

71741.7 

68017.3 

83661.7 
158773.6 
153454.8 

147806.4 

141924.5 
135898.0 


117691.9 

111775.8 

106807.8 
100417.4 

95025.9 

89848.3 
84893.6 

80166.4 
75667,3 

71394.2 

67342.5 

63505.9 
59877.0 

56447.3 
53208.2 

50150.4 

47264.6 

44541.9 

41973.1 

39549.6 

37262.9 

35105.2 

33068.6 
31146.0 

29330.5 

27615.7 

25995.5 

24464. 1 

23016.3 

21647.1 

20351.8 
19126.0 


0.0 

6.5 

26.1 

58.8 


104.7 

163.8 

236.3 

322.3 
422,1 

535.7 

663.5 

805.6 
962.5 

1134.4 

1321.7 

1524. 7 
1744.0 

1979.9 
2233.0 

2503.9 

2793.2 

3101.4 

3429.3 

3777. 7 

4147.4 
4539.2 

4954.1 
5393.0 

5857.2 

6347.6 

6865.6 

7412.5 

7989. 7 

8598. 7 

9241.3 
9919.1 

10634.0 

11388. 1 

12183.6 

13022. 7 
13908.0 

14842. 1 
15828.0 

16868. 7 
17967.5 
19127.9 


118250.0 

118173.7 

117942.9 

117551.5 
116990.0 

116245.3 

115301.9 

114142.1 

112747.4 

111099.6 
109182.3 

106982.1 

104490.5 

101705.1 
98630, 9 

95281.4 

91678.4 

87852.4 
83841.0 

79688.1 

75441.5 

71150.6 

66864.8 

62630.6 

58490.4 

54480.7 

50631.9 

46967.4 

43504.1 

40252.5 

37217.8 
34400.0 

31795.8 

29398.5 

27199.2 

25187.4 

23351.6 
21680.0 

20160.5 
18781.1 

17530.3 
16397.0 
15371.0 

14442.5 

13602.5 

12842.7 


5673.3 
5674.2 
5677.0 

5681.7 

5688.4 

5697. 1 

5707.8 

5720. 7 

5735.9 

5753.5 

5773.6 
5796.4 

5822. 2 

5851.1 

5883.3 

5919. 2 

5959. 1 

6003.3 

6052.2 

6106.3 

6165.9 

6231.6 

6304.1 

6383.9 

6471.8 

6568.6 

6675.1 

6792.4 

6921.5 

7063.7 

7220.2 

7392.7 

7582.6 
7792.0 

8022.7 

8277.1 

8557.8 

8867.4 

9209.2 

9586.5 
10003.3 
10463. 7 

10972.5 

11534.9 

12156.5 

12843. 9 


4408.0 

4676.8 

4968.8 

5286.4 
5631.  7 

6007.3 
6415.6 

6859.3 

7341.1 

7863.5 

8429.4 

9041.2 

9701.4 
10412.3 
11175.9 

11993.7 

12866.8 


20481.8 

21750.9 

23049.1 

24368.6 

25700.1 

27033.9 
28359.4 

29665. 7 

30941.7 

32176.2 

33358. 7 
34479.0 

35527.9 

36497.2 

37379.6 

38169.2 

38861.1 

39451.7 

39937.9 

40317.8 
40590.0 
40753.6 

40808. 2 


TABLE  A-5.  GRAPHITE  STRENGTH  ALLOWABLES  (VF  =  0.  60) 


ALPHA 

FXTU 

FYTU 

FXCU 

FYCU 

FXY 

0.G0 

195000.0 

0.0 

129000.0 

5902.6 

4928.4 

1.00 

194519.1 

7.3 

128917.1 

5903.9 

5228.6 

2.00 

193089.4 

29.3 

128666.3 

5907.9 

5554.8 

3.00 

190748.9 

68.0 

128240.7 

5914.6 

5906.8 

4.00 

187558.2 

117.4 

127629.4 

5924. 0 

6289.6 

5.00 

183597.0 

183.8 

126617.8 

5936.3 

6704.9 

6.00 

178958.5 

265.1 

125788.1 

5951.4 

7155.5 

7,00 

173745.4 

361.6 

124520. 7 

5969.5 

7644.1 

8.00 

163264.0 

473.5 

122994.9 

5990. 7 

8173.6 

9.00 

162020.2 

601.6 

•121190.4 

6015.1 

8746.9 

10.00 

155715.4 

744.3 

119089.3 

6043.0 

9366.8 

11.00 

149243.4 

903.6 

116677.2 

6074.5 

10036. 2 

12.00 

142688.9 

1079.8 

113945.3 

6109.8 

10757, 9 

13.00 

136125.9 

1272.5 

110892.0 

6149.2 

11534.1 

14.00 

129617.5 

1482.6 

107524.1 

6192.9 

12367.2 

15.00 

123216.8 

1710.3 

103857.6 

6241.3 

13259.0 

16.00 

116963.3 

1956.2 

99918,1 

6294.6 

14210.7 

17.00 

118892.3 

2220. 7 

95740.1 

6353.4 

15223.2 

18.00 

105027.2 

2504.5 

91366.3 

6418.0 

16296.3 

19.00 

99385.5 

2808, 2 

86845.3 

6488.8 

17429.2 

20.00 

93978.6 

3132,5 

82229.6 

6566.5 

18620.1 

21.00 

88811.0 

3478.0 

77573.4 

6651.6 

19866.2 

22.00 

83886.2 

3845.6 

72929.5 

6744.6 

21163.2 

23.00 

79202.2 

4236.0 

68348.0 

6846.4 

22506.2 

24.00 

74755.1 

4650.3 

63873.5 

6957.8 

23888.4 

25.00 

70538.9 

5089.3 

59544.5 

7079.5 

25302.2 

26.00 

66546.1 

5554. 0 

55392.2 

7212.6 

26738.6 

27.00 

62768.5 

6045.7 

51440.8 

7358.2 

28187.7 

28.00 

59196.9 

6565.5 

47707.1 

7517.3 

29638.5 

29.00 

55821.9 

7114.7 

44201.3 

7691.4 

31079.4 

30.00 

52633.8 

7694. 7 

40928. 2 

7881.8 

32498.3 

31.00 

49623.1 

8306.9 

37887.1 

8090. 2 

33883.0 

32,00 

46780.3 

8952.9 

35073.8 

8318.4 

35221.3 

33.00 

44096.2 

9634.5 

32480.9 

8568,3 

36501. 7 

34.00 

41561.7 

10353.3 

30098.6 

8842.1 

37713.1 

35.00 

39168.4 

11111.5 

27915.6 

9142.2 

38845.8 

36.00 

36908.0 

11911.1 

25919.7 

9471.4 

39890.9 

37.00 

34772.8 

12754. 2 

24098.1 

9832.6 

40841.1 

38.00 

32755.4 

13643.3 

22438.2 

10229. 1 

41690.1 

39.00 

30848.7 

14581.1 

20927.3 

10664,6 

42433.1 

40.00 

29046.2 

15570.1 

19553.3 

11143.2 

43066.4 

41.00 

27341.8 

16613.4 

18304.6 

11669.3 

43587. 2 

42.00 

25729.7 

17714.1 

17170.2 

12247.9 

43993.8 

43.00 

24204.3 

18875.7 

16140.1 

12884.6 

44284.9 

44.00 

22760.6 

20101.7 

15204.8 

13585.3 

44459.7 

45.00 

21393.9 

21396. 1 

14355.4 

14356. 7 

44518.0 
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TABLE  A-6.  GRAPHITE  POISSON'S  RATIO  AND 
THERMAL  EXPANSION  (VF  =  0.  55) 


ALPHA 

UXV 

UYX 

AX 

AY 

0.00 

0.2785 

0.0134 

2. 100E-07 

1.716E-05 

1.00 

0.2841 

0.0137 

2. 055E-07 

1.716E-05 

2.00 

0.3009 

0.0145 

1. 919E-07 

1.713E-05 

3.00 

0.3287 

0.0160 

1. 692E-07 

1.709E-05 

4.00 

0.3872 

0.0179 

1.377E-07 

1.704E-05 

5.00 

0.4160 

0.205 

9. 739E-08 

1.696E-05 

6.00 

0.4745 

0. 0236 

4. 847E-08 

1.687E-05 

7.00 

0.5420 

0.0274 

-8. 815E-09 

1. 677E-05 

8.00 

0.6176 

0.0317 

-7. 420E-08 

1. 664E-05 

9.00 

0.7001 

0. 0366 

-1. 474E-07 

1, 650E-05 

10.00 

0.7883 

0.0421 

-2. 279E-07 

1.635E-05 

11.00 

0.8806 

0.0483 

-3. 154E-G7 

1. 617E-05 

12.00 

a  9754 

a  0550 

-4. 094E-07 

1. 598E-05 

13.00 

1.0709 

0.0625 

-5. 093E-07 

i.  576E-05 

14.00 

1. 1663 

0.0785 

-6. 143E-07 

1. 553E-05 

15.00 

1.2569 

0.0793 

-7, 239E-07 

1, 528E-05 

16.00 

1.3427 

0.0888 

-8. 371E-07 

1. 502E-05 

17.00 

1.4223 

0.989 

-9, 531E-07 

1. 473E-05 

18.00 

1.4936 

0. 1099 

-1.071E-06 

1, 442E-05 

19.00 

1.5554 

0. 1215 

-1. 189E-06 

1. 409E-05 

20.00 

1,6068 

0. 1340 

-1.307E-06 

1. 374E-05 

21.00 

1.6472 

0. 1472 

-1, 423E-06 

1. 337E-05 

22.00 

1.6762 

a  1613 

-1. 535E-06 

1. 298E-05 

23.00 

1.6941 

0. 1763 

-1, 643E-06 

1. 257E-05 

24.00 

1.7011 

0. 1921 

-1.744E-06 

1. 214E-05 

25.00 

1.6978 

0. 2089 

-1. 836E-06 

1. 169E-05 

26.00 

1.6852 

0.2266 

-1, 918E-06 

1. 122E-05 

27.00 

1.6640 

0. 2453 

-1.  988E-06 

1. 074E-05 

28.00 

1.6354 

0.2651 

-2. 043E-06 

1. 023E-05 

29.00 

1.6004 

0. 2859 

-2. 082E-06 

9.711E-06 

30.00 

1.5601 

0.3078 

-2, 103E-06 

9. 176E-06 

31.00 

1. 5154 

0.3309 

-2. 102E-06 

8. 627E-06 

32.00 

1,4572 

0.3552 

-2. 079E-06 

8. 068E-06 

33.00 

1.4165 

0.3808 

-2, 031E-06 

7.499E-06 

34.00 

1.3640 

a  4076 

-1.956E-06 

6. 923E-06 

35.00 

1.3103 

0.4357 

-1.  852E-06 

6. 343E-06 

36.00 

1.2561 

0.4653 

-1. 718E-06 

5.761E-06 

37.00 

1.2017 

0.4962 

-1.553E-06 

5. 181E-06 

38,00 

1. 1477 

0.5287 

- 1. 354E-06 

4.605E-06 

39.00 

1.0944 

0.5627 

-1. 122E-06 

4. 037  E -06 

40.00 

1.0428 

0.5982 

-8. 562E-07 

3. 480E-06 

41.00 

0.9907 

0.6353 

-5. 562E-07 

2. 938E-06 

42.00 

0. 9408 

0.6740 

-2, 227E-07 

2. 412E-06 

43.00 

0.3923 

0.7144 

1.437E-07 

1. 907E-06 

44.00 

0.0454 

0.7564 

5.417E-07 

l.  425E-06 

45.00 

0.8001 

0,8001 

9. 698E-07 

9.691E-07 

TABLE  A-7.  GRAPHITE  POISSON'S  RATIO  AND  THERMAL 
EXPANSION  (VF  =  0.  60) 


ALPHA 

UXY 

UYX 

AX 

AY 

0.00 

0.2720 

0.0125 

1. 275E-07 

1. 575E-05 

1.00 

0.2779 

0.0128 

1. 233E-07 

1.  574E-05 

2.00 

0.2954 

0.0136 

1. 106E-07 

1.572E-05 

3.00 

0.3243 

0.0150 

9. 004E-08 

1. 568E-05 

4.00 

0.3844 

0.0170 

6. 113E-08 

1. 562E-05 

5.00 

0. 4152 

0.0195 

2. 42IE-08 

1. 554E-05 

6.00 

0.4760 

0.0226 

-2. 052E-08 

1. 545E-05 

7.00 

0.5460 

0.0263 

-7. 283E-08 

1. 534E-05 

8.00 

0.6243 

0.0306 

-1.324E-07 

1. 521E-05 

9.00 

0.7098 

0.0355 

-1. 990E-07 

1. 507E-05 

10.00 

0.8005 

0.0410 

-2.721E-07 

1, 491E-05 

11.00 

0.8954 

0.0471 

-3. 513E-07 

1.473E-05 

12.00 

0.9926 

a  0539 

-4.361E-07 

1, 453E-05 

13.00 

1.0901 

0.0612 

-5.260E-07 

1. 432E-05 

14.00 

1. 1059 

0.0693 

-6. 202E-07 

1. 409E-05 

15.00 

1.2732 

0.0780 

-7. 181E-07 

1. 384E-05 

16  00 

1.3649 

0.0874 

-8. 188E-07 

1, 357E-05 

17.00 

1.4444 

0.0975 

-9, 215E-07 

1, 328E-05 

13.00 

1.5151 

0.1083 

-1. 025E-06 

1. 298E-05 

19.00 

1.5759 

0. 1199 

-1. 129E-06 

1. 265E-05 

20.00 

1.6257 

0. 1323 

-1.  232E-06 

1.231E-05 

21.00 

1.6642 

0. 1455 

-1.332E-06 

1. 195E-05 

22.00 

1.6912 

0. 1595 

’  1. 429E-06 

1. 158E-05 

23.00 

1.7868 

0, 1743 

-1. 520E-06 

1, 118E-05 

24.00 

1.7115 

0. 1901 

-1.605E-06 

1. 077E-05 

25.00 

1,7059 

0.2067 

-1.683E-06 

1. 035E-05 

26.00 

1.6911 

0.2243 

-1.750E-06 

9. 905E-06 

27.00 

1.6679 

0.2429 

-1. 806E-06 

9. 449E-06 

28.00 

1.6374 

0.2625 

-1. 850E-06 

8. 981E-06 

29.00 

1.6007 

0.2832 

-1.  878E-06 

8.50iE-06 

30.00 

1.5589 

0,3050 

-1. 890E-06 

8. 010E-06 

31.00 

1. 5129 

0.3279 

-1. 884E-06 

7. 511E-06 

32.00 

1.4637 

0.3520 

-1. 858E-06 

7.005E-06 

33.00 

1.4121 

0.3774 

-1.811E-06 

6. 493E-06 

34.00 

1.3589 

0.4040 

-1.741E-06 

5. 979E-06 

35.00 

1.3047 

0. 4828 

-1. 646E-06 

5. 463E-06 

36.00 

1.2500 

0.4614 

-1. 526E-06 

4. 950E-06 

37.00 

1. 1954 

0,4921 

-1. 379E-06 

4. 440E-06 

38.00 

1. 1413 

0,5243 

-1.205E-06 

3. 936E-06 

39.00 

1.0878 

0.5581 

-l,  002E-06 

3. 442E-06 

40.00 

1.0354 

0  5934 

-7.719E-07 

2. 958E-06 

41.00 

0.9842 

0.6363 

-5. 129E-07 

2. 489E-06 

42.00 

0.9744 

0,6688 

-2. 258E-07 

2. 036E-06 

43.00 

0,8861 

0.7089 

8. 896E-08 

1. 602E-06 

44.00 

0. 8393 

0.7568 

4, 304E-07 

1. 188E-06 

45.00 

0.7942 

0.7843 

7. 975E-07 

7. 969E-07 
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TABLE  A- 8.  KEVLAR  49  COMPOSITE  PROPERTIES 


FIBER  PROPERTIES 


RESIN  PROPERTIES 


COMPOSITE  PROPERTIES 


RHOF  *  0.0524 

FTU  •  325000.0 

FCU  •  70000.0 

UF  *  0.2200 


EF  «  1. 900E+07 
EFT  *  1. 000E+06 
GF  •  3. 00QE+05 
AF  *  -3. 440E-06 
AFT*  3. 000E-05 


0.4500 

0.3915 

0.0412 

8000.0 


ER*  4.700E+05 
AR*  4. 800E-05 
UR*  0.3500 


0.0474 

178750.0 

38500.0 

8000.0 


FIBER  PROPERTIES 


RESIN  PROPERTIES 


COMPOSITE  PROPERTIES 


0.6000 

EF  * 

1. 9006  +  07 

0.6561 

EFT  • 

1.0006  +  06 

0.0524 

GF  * 

3.0006  +  05 

325000.0 

AF  ■ 

3. 4406-06 

70000,0 

ar  * 

3. 0006-05 

0.2200 

0.4000 

0.3439 

0.0412 

8.000,0 


ER*  4. 700E+05 
AR*  4. OOOC-05 
UR*  0.3500 


RHO  •  a  0479 
FTU  •  195000.0 
FCU  •  42000.0 
FSU  •  8000.0 


TABLE  A- 9.  KEVLAR  49  MODULI  (VF  =  0.  55) 


ALPHA 

EX 

EY 

GXY 

0,00 

1. 066E+07 

7. 847E+05 

2. 349E+05 

1.00 

1.065E+07 

7. 845E+05 

2. 380E+05 

2.00 

1. 563E+07 

7. 840E+05 

2.472E+05 

3.00 

1. 859E+07 

7. 830E+05 

2. 626E+05 

400 

1.053E+07 

7.817E+05 

2. 840E+05 

5.00 

1.046E+07 

7. 800E+05 

3. 113E+05 

6.00 

1. 037E+07 

7.  779E+05 

3. 444E+05 

7.00 

1.026E+07 

7.  755E+05 

3. 832E+05 

&00 

1. 012E+07 

7. 727E+05 

4. 274E+05 

9.00 

9.968E+06 

7. 696E+05 

4.768E+05 

10.00 

9. 791E+06 

7. 661E+05 

5.312E+05 

11.00 

9, 589E+06 

7. 623E+05 

5. 904E+05 

12.00 

9.364E+06 

7. 582E+05 

6.540E+05 

13.00 

9. 113E+06 

7. 538E+05 

7.217E+05 

1400 

8. 838E+06 

7. 491E+05 

7. 932E+05 

15.00 

8. 538E+06 

7. 441E+05 

8. 682E+05 

16  00 

8. 215E+06 

7  389E+05 

9.483E+05 

17.00 

7. 871E+06 

7.  335E+05 

1.027E+06 

18.00 

7  509E+06 

7. 279E+05 

1. 110E+06 

19.00 

7. 131E+Q6 

7. 221E+05 

1  195E+06 

2a  00 

6.741E+06 

7. 162E+05 

1.282E+06 

21.00 

6.343E+06 

7. 102E+05 

1.  369E+06 

22.00 

5. 942E+06 

7. 042E+05 

1. 457E+06 

23.00 

5.541E+06 

6. 983E+05 

1.546E+06 

2400 

5. 145E+06 

6. 924E+05 

1. 634E+06 

25.00 

4. 758E+06 

6. 867E«05 

1. 721E+06 

26.00 

4.384E+06 

6.812E+05 

1. 808E+06 

27.00 

4. 025E+06 

6. 761E+05 

1.893E+06 

28.00 

3  685E+06 

6. 714E+05 

1. 976E+06 

29.00 

3. 365E+06 

6. 674E+05 

2. 057E+06 

3a  00 

3  066E+06 

6. 640E‘05 

2. 135E+06 

31.00 

2.790E+06 

6. 614E+05 

2.210E+06 

32.00 

2. 535E+06 

6. 599E+05 

2. 281E+06 

33.00 

2. 303E+06 

6. 597E+05 

2.349E+06 

3400 

2. 092E+06 

6. 608E+05 

2. 413E+06 

35.00 

1. 902E+06 

6. 537E+05 

2. 472E+Cf> 

36.00 

1. 732E+06 

6. 686E+05 

2. 526E  ■*  O' 

37.00 

1.580E+06 

6.  758E+05 

2.576E-06 

38.00 

1.445E+06 

6.857E+05 

2. 620E  +0o 

39.00 

U26E+06 

6. 987E+05 

2. 659E  06 

4a  00 

1.221E+06 

7. 152E+05 

2.692E+06 

4100 

1. 130E+06 

7.  358E+05 

2. 719E+06 

42.00 

1. 050E  +06 

7. 610E+05 

2. 740E+06 

43.00 

9  813E+05 

7. 915E+05 

2.  756E+06 

4400 

9.219E+05 

8. 279E+05 

2. 765E-06 

45.00 

8.7UE+05 

8. 712E+05 

2. 768E  *06 

TABLE  A-10.  KEVLAR  49  MODULI  (VF  =  0.  60) 


ALPHA 

EX 

EY 

GXY 

0.00 

1. 159E+07 

8. 053E+05 

2.412E+05 

LOO 

1. 158E+07 

8.051E+05 

2.445E+05 

2.00 

1. 155E+07 

8. 045E+05 

2. 546E+05 

3.00 

1. 151E+07 

8. 036E+05 

2. 713E+05 

400 

1. 145E+07 

8. 022E+05 

2  947E+05 

5.00 

1. 137E+07 

8.  Q05E+05 

3. 245E+05 

600 

1. 127E+07 

7. 983F.+05 

3. 606E+05 

7.00 

1. 114E+07 

7. 958E+05 

4.029E+05 

8.00 

1. 100E+07 

7. 930E+05 

4.511E+05 

9.  GO 

1. 083E+07 

7. 898E+05 

5.050E+05 

10.00 

1.083E+07 

7  862E+05 

5. 644E+05 

a  oo 

1.0412+07 

7. 823E+05 

6.289E+05 

12.00 

0. 106E+07 

7. 782E+05 

6. 983E+05 

13.00 

9.886E+06 

7  735F.+05 

7. 721E+05 

1400 

9.5812+06 

7. 687E+05 

8. 582E+05 

15.00 

9.249E+06 

7. 636E+05 

9.319E+05 

16.00 

8. 891 E +06 

7. 553E+05 

1.017E+06 

17.00 

8. 509E+06 

7. 527E+05 

1. 105E+06 

18.00 

8. 107E+06 

7. 469E+05 

1. 196E+06 

19.00 

7. 688E+06 

7. 410E+05 

1, 288E+06 

20L  00 

7. 256E+06 

7. 349E+05 

1.303E+06 

21.00 

6.  ?16F.+06 

7. 288E+05 

1.478E+06 

22.00 

6.373E+G6 

7.226E+05 

1.575E+06 

23.00 

5.9322  +06 

7. 165E+05 

1.671E+06 

2400 

5. 497E+06 

7. 105E+05 

1. 767E+06 

25.00 

5. 073E+06 

7, 046E+05 

1.863E+06 

2600 

4.664E+06 

6. 990E+Q5 

1.957E+06 

27.00 

4.273E+06 

6, 938E+05 

2.G5QE+06 

28.00 

3.903E+06 

6. 893E+05 

2. 140E+06 

29.00 

3, 556E+06 

6.848E*05 

2. 228E+06 

3tt  00 

3. 233E+06 

6.813E+05 

2. 314E+06 

3100 

2.935E+06 

6. 787E+05 

2. 395E+06 

32.00 

2. 662E+06 

6. 772E+05 

2. 473? 'Jo 

33.00 

2.413E+06 

6. 769E+05 

2. 547E+06 

3400 

2. 188E+06 

6. 782E+05 

2.617E+06 

35.00 

1. 986E+06 

6.812E+05 

2. 68  IF.  +06 

3600 

1.805E+06 

6. 864E+05 

2. 740E+06 

37.00 

1.644E+06 

6. 939E+05 

2. 794E+06 

38.00 

1. 501E+06 

7. 042E+05 

2. 843E+06 

39.00 

1. 375E+06 

7. 177E+05 

2. 885E+06 

46  00 

1.265E+06 

7. 349E+05 

2. 921E+06 

4100 

1. 169E+06 

7. 563C+05 

2.9515+06 

42.00 

1. 085E+06 

7. 826E+05 

2. 974E+06 

43.00 

LODE +06 

8. 143E+05 

2. 991E+06 

4400 

9.506E+05 

8. 524E+05 

3.0015+06 

45.00 

8.975E+05 

8. 975E+05 

3.0045+06 

1 


TABLE  A-l  1.  KEVLAR  49  STRENGTH  ALLOWABLES  (VF  =  0.  55) 


ALPHA 

0.00 

1.00 

2.00 

3.00 

4.00 

5.00 

6.00 

7.00 

8.00 

9.00 

10.00 

11.00 

12.00 

13.00 

14.00 

15.00 

16.00 

17.00 

18.00 

19.00 

20.00 

21.00 

22.00 

23.00 

24.00 

25.00 

26.00 

27.00 

28.00 

29.00 

30.00 

31.00 

32.00 

33.00 

34.00 

35.00 

36.00 

37.00 

38.00 

39.00 

40.00 

41.00 

42.00 

43.00 

44.00 

45.00 


178750.0 

178134.2 
176310.4 

173347.7 

169353. 7 

164465.9 

158839.9 

152638.8 

146023.3 
139143.7 

132134.6 

125111.4 

118169.7 
111385.2 

104815.7 

98502.7 

92473.9 

86746.1 

81326.6 

76215.9 

71409.1 

66897.6 

62669.8 

58712.6 

55011.8 

51552.6 

48320.3 

45300.4 

42478.7 

39841.8 

37376.9 
35071.8 

32915.2 

30896.5 
29006.0 

27234.3 
25573.0 

24014.4 

22551.1 

21176.5 
19884.3 
18669.0 

17525.2 
16448.1 

15433.3 
14476.7 


0.0 

4.8 

19.2 

43.3 
77.0 

120.5 

173.9 

237.2 

310.6 

394.3 

488.5 

593.3 

708.9 

835.7 
974.0 
1123.9 
1286.0 

1460.5 

1647.8 

1848.5 

2062.9 

2291.6 

2535.1 

2794.1 

3069.2 

3361.1 

3670.6 

3998.4 

4345.6 

4712.9 

5101.4 

5512.3 

5946.6 
6405.8 

6891.1 

7404.1 

7946.3 

8519.4 

9125.4 
9766.3 

10444.2 

11161.4 

11920.6 

12724.4 
135  75.9 

14478. 2 


38500.0 
38474. 8 

38398. 7 

38270.3 

38087.3 

37846. 7 

37544.7 

37176.8 

36738.3 

36224.1 

35629.2 

34949.3 

34180.4 
33320.0 
32367.0 

31322.3 

30188.9 

28972.5 

27681.1 

26325.4 

24918.4 

23474.7 
22010.3 

20541.8 

19085.8 

17657.8 

16272.2 

14941.5 

13675.9 

12483.3 
11369.1 
10336. 7 

9387.3 

8520.4 
7734.0 
7025.0 

6389.4 

5822.7 

5320.1 

4876.4 

4486.7 
4146.0 

3849.7 

3593.2 

3372.4 

3183.4 


2818.7 
2818.0 
2816.1 

2812.7 
2808.1 
2802.2 
2795.0 

2786.5 

2776.7 

2765.8 

2753.6 

2740.3 
2726.0 

2710.5 

2694.1 

2676.7 

2658.5 

2639.6 
2620.0 

2599.9 

2579.3 

2558.6 

2537.8 

2517.1 

2496.8 

2477.2 

2458.4 
2441.0 

2425.2 

2411.5 

2400.4 

2392.5 

2388.3 

2388.7 

2394.4 

2406.4 

2425.7 

2453.6 

2491.2 

2540.3 

2602.4 

2679.4 

2773.6 
2887.2 

3022.9 

3183.7 


1413.4 

1498.5 

1596. 7 

1709.5 

1838.6 

1985.6 

2152.4 

2340. 7 
2552.3 
2789.0 

3052.2 

3343.6 

3664.3 

4015.3 

4397.2 

4810.2 

5253.8 

5727.2 

6228.8 

6756.5 

7307.5 

7878.3 
8465.0 

9063.1 

9667.8 

10273.9 
10876.3 

11469.6 

12048.9 

12609.5 
13147.0 

13657.5 
14138.0 

14585.9 
14999.0 

15376.2 

15716.5 

16019.5 

16285.2 

16513.9 

16706.1 

16862.3 
16983.0 

17068.8 

17120.1 

17137.2 


TABLE  A- 12.  KEVLAR  49  STRENGTH  ALLOWABLES  (VF  =  0.  60) 


ALPHA 


0.00 

1.00 

2.00 

3.00 

4.00 

5.00 

6.00 

7.00 

8.00 

9.00 

10.00 

11.00 

12.00 

13.00 

14.00 

15.00 

16.00 

17.00 

18.00 

19.00 

20.00 

21.00 

22.00 

23.00 

24.00 

25.00 

26.00 

27.00 

28.00 

29.00 

30.00 

31.00 

32.00 

33.00 

34.00 

35.00 

36.00 

37.00 

38.00 

39.00 

40.00 

41.00 

42.00 

43.00 

44.00 

45.00 


FXTU 


0.0 

194288.9 

192184.6 

188771.6 

184181.1 

178579.5 

172154.1 

165099.2 

157604.1 

149843.9 

141973.1 

134122.3 

126397.4 

118880.9 

111633.6 
104898.0 

98100.8 

91856.4 

85969.1 

80435.8 
75248.0 

70393.1 

65856.3 

61620.7 

57669.2 
53984.0 

50547.7 

47343.6 

44355.2 

41567.4 

38965.5 
36536.0 

34266.2 

32144.4 

30159.6 

28301.7 

26561.6 

24930.5 

23400.7 

21964.8 

20616.3 

19348.9 

18156.9 

17035.3 

15979.3 
14984.3 


FYTU 


0.0 

4.9 

19.8 

44.6 
79.3 

124.2 

179.2 

244.4 
320.1 

406.4 

503.4 

611.4 

730.6 

861.4 
1003.9 

1158.5 

1325.6 

1505.6 

1698.8 

1905.8 
2127.0 

2362.9 
2614.3 

2881.6 

3165.6 
3467.0 
3786.5 

4125.2 

4483.8 

4863.3 

5264.9 

5689. 7 

6138.8 

6613.8 

7115.9 

7646.8 
8208.2 

8801.8 

9429.7 

10093.9 

10796.8 

11540.8 

12328.7 
13163.4 

14047.9 

14985.9 


FXCU 


42000.0 

41972.5 

41889.3 

41748.9 

41548. 7 

41284.9 

40953. 1 

40548. 1 

40064.4 
39496.0 

38837. 2 

36002.6 

37227. 9 

36270. 2 

35200. 1 

34042.9 

32778.4 

31421. 2 

29981.1 

28470.6 

26904.9 
25301.0 

23677.4 

22653.1 

20446.6 

18875.6 

17355.8 

15900.6 
14521.0 

13225.1 

12018.3 

10903.5 

9881.5 

8950.9 

8109.2 

7352.2 

6675.4 

6073.4 

5540.5 

5071.2 

4659. 7 

4300.6 

3988.8 

3719.3 
3487..  6 

3289.6 


FYCU 


2904.8 

2904.1 

2902.1 

2898.6 

2893.8 

2887.7 

2880.3 

2871.5 

2861.4 

2850.1 

2837.6 
2823.0 
2809.0 
2793.0 
2776.0 

2758.1 

2739.3 

2719.7 

2699.4 

2678.6 

2657.4 
2636.0 

2614.4 
2593.0 
25  72.1 

2551.7 

2532.3 

2514.3 

2497.9 

2483.7 

2472.2 
2464.0 

2459.7 

2460.1 

2466.1 

2478.5 

2498.6 

2527.6 

2566.8 

2617.8 

2682.5 

2762.9 

2861.1 

2979.7 

3121.6 

3289.9 


rXY 


1460.9 
1550.0 

1652.9 

1771.3 

1906.9 
2061.8 

2237.6 

2436.5 

2660.5 

2911.3 
3191.0 

3501.3 

3843.5 
4219.0 

4628.5 

5072.4 

5550.5 
6062.1 

6605.7 
7179.0 
7779.4 
8403.0 

9045.8 

9702.8 

10368.8 
11038.0 

11704.6 

12362. 7 

13006.6 

13630.6 

14229.9 

14800.1 

15337.2 

15838.2 

16300. 7 

16723.1 

17104.3 

17443.7 

17741.4 

17997.5 

18212.7 

18387.5 

18522.6 

18618.7 
18676.0 

18695.1 


TABLE  A- 13.  KEVLAR  49  POISSON’S  RATIO  AND  THERMAL 
EXPANSION  (VF  =  0.  55) 


UYX 

AX 

AY 

0.205 

-2. 578E-06 

2. 844E-05 

0.208 

-2. 587E-06 

2. 843E-05 

a  217 

-2.613E-06 

2.  843E-05 

0.232 

-2.656E-06 

2. 841E-05 

0.0253 

-2.716E-06 

2. 840E-05 

0.0280 

-2.794E-06 

2. 838E-05 

0.0313 

-2. 889E-06 

2. 835E-05 

a  0353 

-3. 002E-06 

2. 831E-05 

0.0399 

■3. 132E-06 

2. 827E-05 

0.0451 

-3.279E-06 

2. 822E-05 

0.0510 

-3. 445E-06 

2.816E-05 

0.0575 

-3. 627E-06 

2. 809E-05 

a  0647 

-3. 828E-06 

2, 802E-05 

0.0726 

-4.045E-06 

2.792E-05 

0.0812 

-4.28QE-06 

2.782E-05 

0.0905 

-4, 532E-06 

2.770E-05 

0.1006 

-4. 800E-06 

2.756E-05 

0.1114 

-5.085E-06 

2. 739E-05 

a  1230 

-5. 384E-06 

2.721E-05 

a  1355 

-5. 698E-06 

2.700E-5 

0. 1487 

-6. 024E-06 

2.676E-05 

a  1629 

-6. 36  IE- 06 

2. 649E-05 

a  1779 

-6.707E-06 

2. 618E-05 

a  1939 

-7.059E-06 

2. 582E-05 

a  2108 

-7.413E-06 

2. 542E-05 

0.2287 

-7.767E-06 

2. 497E-05 

a  2476 

-8, 114E-06 

2. 446E-05 

0.2676 

-8, 449E-06 

2. 388E-05 

0.2887 

-8.764E-06 

2.323E-05 

a  3109 

-9. 052E-06 

2  251E-05 

a  3344 

-9. 304E-06 

2. 170E-05 

a  3590 

-9. 507E-06 

2.079E-05 

0  3850 

-9  652E-06 

1. 979E-05 

a  4122 

-9  723E-06 

1. 869E-05 

0.4408 

-9.708E-% 

1.749E-05 

0,4708 

-9.591E-06 

1.618E-05 

a  5023 

-9,3j7E-06 

1. 477E-05 

0.5352 

-8.992E  -06 

1.325E-5 

0.5697 

-8. 483E-06 

1. 165E-05 

0.6056 

-7. 820E-06 

9. 969E-06 

a  6432 

-6. 995E-06 

8.228E-06 

a  6823 

-6, 005E-06 

6. 448E-06 

a  7230 

-4  852E-06 

4, 654E-06 

0.7652 

-3. 546E-06 

2  874E-06 

0.8090 

-2. 098E-06 

1. 136E-06 

0.8543 

-5. 289E-07 

-5.316E-07 

TABLE  A-14.  KEVLAR  49  POISSON'S  RATIO  AND  THERMAL 
EXPANSION  (VF  =  0.  60) 
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APPENDIX  B 


ANGLE  BRACKET  STUDY 


Tension  fittings,  frequently  referred  to  as  "bathtub"  fittings  (Figure  B-l), 
provide  an  effective  method  of  transferring  axial  load  across  removable 
helicopter  joints.  This  type  of  fitting  is  commonly  fabricated  from  metals 
whose  strength  and  stiffness  are  essentially  the  same  in  all  directions  (i.  e. 
they  are  isotropic  and  homogeneous). 


W 


l  BASE 


The  design  and  fabrication  of  similar  fittings  from  reinforced  composites 
present  several  problems  that  do  not  arise  in  the  design  of  metal  fittings: 

•  The  strength  and  stiffness  of  composite  materials  depend  on 
fiber  orientation, 

•  The  bearing  and  shear  strengths  of  composites  are  low  in 
comparison  with  their  unidirectional  tensile  strength  and  the 
tensile  strength  of  metals. 


t 

f 


k 
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•  The  three-dimensional  state  of  stress  that  exists  in  composite 
fittings  complicates  the  analysis  of  these  structures. 

•  The  failure  modes  of  composites  are  different  from  those  of 
metals. 

A  major  problem  in  designing  attachment  fittings  using  reinforced  composites 
is  "turning  the  corner.  "  A  simple  example  is  the  bolted  angle  bracket  shown 
in  Figure  B-2.  In  bolted  angle  brackets,  a  tension  load  applied  to  one  leg  of 
the  angle  is  reacted  by  a  shear  load  in  the  other  leg.  As  a  result  of  the 
inherent  eccentricity,  a  bending  moment  is  present  in  both  legs  and,  in 
particular,  in  the  radius  of  the  angle.  In  composites,  the  transfer  of  the 
load  from  tension  in  one  leg  to  shear  in  the  other  and  the  transfer  of  the 
bending  moment  around  the  corner  limit  the  strength  of  the  fitting  because 
composites  possess  nonuniform  properties.  The  situation  is  complicated  by 
several  discontinuities: 

•  The  tension  bolt-washer  interface 

•  The  turn-the-corner  problem 

•  The  load  distribution  around  the  hole 

•  The  material  behavior 

This  problem  had  to  be  solved  in  order  to  design  effective  composite  tension 
fittings.  An  analytical  solution  was  required,  along  with  experimental  data 
to  verify  the  accuracy  of  the  analysis. 

METHODOLOGY 


The  nature  of  the  stress  field  in  the  corner  of  an  angle  bracket  was 
investigated  using  several  theoretical  methods  including  classical  two- 
dimensional  thin  laminate  theory,  thick  laminated  plate  theory,  and  cylindri¬ 
cal  shell  theory.  Results  obtained  using  the  two-dimensional  classical  theory 
were  comparable  with  parametric  study  results  obtained  using  finite  element 
models  C-l  and  C-2. 


70 


When  a  pure  axial  tension  load  is  applied  to  an  angle  bracket  (Figure  B-3), 
the  internal  axial,  shear,  and  moment  loads  vary  as  a  function  of  the  bend 
angle  0.  These  loads  are  simply: 

Ng  =  Nq  cos0 

se  =  No  sine 

=  N-  R  (1  -  cos  0) 
u  0 

where  the  distance  to  the  center  of  the  laminate  is  R  =  Rq  +  t/2.  At  high 
values  of  0,  the  shear  and  moment  loads  will  create  critical  interlaminar 
shear  and  transverse  tensile  stresses.  These  effects  will  be  discussed 
with  the  NASTRAN  results. 


The  reduced  stiffnesses  of  an  orthotropic  lamina  in  a  flat  composite  plate 
are: 


E, 


11  1  ’  v12  V21 


Q 


VIZE2 


VZl  E1 


12  1  “  VIZ  VZl  1  "  ^12  V21 


22  1  ’  V12  V21 


°66  =  G12 


where 

E^,  =  Young's  moduli  in  one  and  two  directions,  respectively 

v..  =  Poisson's  ratio  for  transverse  strain  in  the  j-direction 
1]  .  . 

when  stressed  in  the  i-direction 

G  _  =  shear  modulus  in  the  1-2  plane 

X  6 
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Laminated  bending  stiffnesses  are  defined  as 

N 


Dij  ■  1  I  (6tj)k  K  -  hL) 


where  Qj-  are  the  reduced  stiffnesses  when  transformed  to  a  rotated  x-y 
axis  and  n^  is  defined  in  Figure  B-4, 
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Figure  B-4.  Laminate  Geometry 

The  normalized  tangential  stress  in  the  corner  of  an  angle  bracket  is 

(re  j  t  (R0  +  t/2)  D  -  c°s6]  (hk  +  tR/2)  cos  el  k 


where  D0q  and  Qqq  are  equal  to  Djj  and  Ojj.  respectively,  and  o-q  =  Ng/t. 
At  0  equal  to  0  degrees,  there  is  no  bending  stress  ;omponent,  as  expected. 

Similarly,  the  normalized  interlaminar  shear  stress  in  the  corner  region 
was  evaluated  as 


r0  _  t  sin  0 
r  =  2G 


(t/2)2  -  (' 


N  *  lk ,2r  °kre 


where  Grg  is  the  laminate  shear  modulus  using  the  radial  coordinate 
system.  Given  a  particular  lamina,  the  value  of  t^q/o-q  varies  as  a  function 
of  sin  6. 

Despite  the  relative  simplicity  of  these  equations,  the  results  show  excellent 
agreement  with  results  obtained  using  the  NASTRAN  C-l  and  C-2  preprocessor 
models  developed  for  this  contracted  effort. 

FINITE  ELEMENT  MODEL 


Modeling  Considerations 


The  finite  element  model  of  the  angle  bracket  to  be  investigated  was  designed 
in  accordance  with  the  following  considerations: 

•  Since  the  geometry  of  the  bracket  fitting  and  the  applied  loads 
are  both  symmetrical,  it  is  necessary  to  analyze  only  half  of 
the  bracket,  using  appropriate  boundary  constraints. 

•  To  avoid  using  a  dense  mesh  and  yet  obtain  reliable  results  in 
critical  parts  of  the  bracket  (parts  with  high  stress/strain 
gradients),  higher-order  isoparametric  solid  elements  (HEXA, 
PENTA)  are  employed. 

•  For  modeling  purposes,  the  bracket  is  subdivided  into  four  parts 
(Figure  B-5)  such  that  each  part  can  be  independently  provided 
with  a  mesh  size  appropriate  to  its  stress/strain  gradients, 

•  The  mesh  size  for  each  bracket  part  is  chosen  so  as  to  lend 
itself  to  automatic  resolution  into  discrete  strips  and  automatic 
numbering  by  appropriate  preprocessors, 

•  To  obtain  the  magnitude  of  the  interlaminar  stresses,  several 
layers  of  elements  are  provided  across  the  thickness  of  the 
bracket  to  represent  the  actual  laminated  construction. 

•  The  bracket  is  subdivided  along  its  width  into  a  reasonable  number 
of  uniform  strips  such  that  it  is  convenient  to  identify  critical 
zones  and,  when  desirable,  possible  to  extract  and  subject 
individual  strips  to  detailed  interlaminar  analysis  (Figure  B-6). 


Preprocessors 


To  minimize  computer  cost,  it  was  decided  to  develop  two  FORTRAN 
preprocessor  programs  (C - 1  and  C-2)  capable  of  automatically  forming  the 
finite  element  meshes  for  a  given  bracket  and  generating  the  associated 
Bulk  Data  decks  (Figure  B-7). 

In  the  first  stage  of  the  analysis,  the  C-l  preprocessor  idealizes  the  whole 
(half-symmetrical)  bracket  into  either  a  single-  or  a  multilayer  model  with 
a  given  number  of  strips  across  the  width  of  the  bracket.  A  full  model 
NASTRAN  can  then  be  conducted. 

The  C-2  preprocessor  simply  extracts  that  part  of  the  C-l  model  output  that 
is  associated  with  a  specific  critical  strip  so  that  a  single  strip  NASTRAN 
can  be  conducted. 

Parametric  studies  can  be  run  using  either  the  output  of  the  full  model 
NASTRAN  analysis  after  a  C-l  run  or  the  output  of  the  single  strip  NASTRAN 
after  a  C-2  run. 

Note  that  a  separate  C-l  run  is  made  for  the  specific  multilayer  construction 
of  the  angle  in  question  before  the  second  stage  oi  the  analysis  (the  C-2  run) 
is  conducted. 

St ep-by-Step  NASTRAN  Proce dure 


The  step?  involved  in  determining  the  magnitude  of  the  interlaminar  stresses 
in  any  given  composite  bracket  by  this  two-stage  procedure  are  as  follows: 

•  List  the  dimensions  of  the  bracket,  the  dimensions  of  the  ele¬ 
ments  for  all  four  regions,  and  the  equivalent  solid  laminate 
material  properties. 

•  Execute  the  C-l  preprocessor  model,  entering  the  above 
information  as  input,  to  obtain  the  bulk  data  for  a  single-layer, 
multistrip  model  run. 

•  Supplement  the  C-l  output  with  appropriate  Executive  Control 
and  Case  Control  decks  and  the  required  additional  Bulk  Data 
cards  to  make  a  data  check  and  plot  run  with  identification  num¬ 
bers  for  grid  points  and  elements. 

•  Modify  the  above  deck  to  conduct  the  full  model  NASTRAN 
for  the  solid  laminate  bracket. 
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•  Examine  the  results  to  identify  regions  of  high  stress/ strain 
gradients  and  select  the  critical  strip  to  investigate  interlaminar 
behavior. 

•  Rerun  the  C-l  preprocessor  model  for  a  multilayered  mesh  that 
represents  the  actual  laminated  construction. 

•  Execute  the  C-2  preprocessor  model  to  extract  the  multilayer 
bulk  data  for  the  critical  strip,  using  the  results  of  the  second 
C-l  model  run  as  input. 

•  Supplement  the  C-2  output  with  the  necessary  Executive  Control, 
Case  Control,  and  Bulk  Data  cards  to  make  a  data  check  and  plot 
run  with  elements  and  grid  points  labeled. 

•  Modify  the  above  deck  to  perform  the  final  single  strip  NASTRAN 
to  obtain  interlaminar  stress  results  within  the  critical  strip. 


FULL  MODEL  C-l  PREPROCESSOR 

The  C-l  preprocessor  first  analyzes  the  portion  of  the  bracket  to  the  left  of 
the  centerline  of  the  washer  and  then,  in  a  similar  manner,  the  portion  to 
the  right  of  the  centerline  up  to  the  tangent  line  where  the  bend  starts, 
Particular  care  is  taken  to  ensure  that  the  grid  points  accurately  trace  the 
circular  washer  circumference  and  that  the  appropriate  wedge-shaped  ele¬ 
ments  (PENTAs)  are  provided  in  combination  with  the  solid  (HEXA)  elements 
near  the  circumference.  The  cylindrical  part  of  the  bracket  is  then  modeled 
using  diverging  HEXA  elements  and,  finally,  the  loaded  leg  (Part  4)  is 
idealized  using  the  rectangular  HEXA  elements. 

The  program  is  capable  of  modeling  up  to  25  layers  across  the  thickness  of 
the  bracket. 

Coordinate  Systems 

In  order  to  locate  the  grid  points,  to  obtain  a  printout  of  node  displacements 
along  desired  directions,  and  to  account  for  specific  material  orientations, 
five  coordinate  systems  are  employed  (Figure  B-8).  These  coordinate  sys¬ 
tems  are  defined  by  NASTRAN  CORD2  Bulk  Data  cards,  and  their  ID  num¬ 
bers  are  appropriately  referenced  when  the  related  GRID  and  PSOLID  cards 
are  input.  These  five  coordinate  systems  are: 

•  The  basic  rectangular  coordinate  system,  with  its  origin  placed 
directly  below  the  left  rear  corner  of  the  angle  such  that  the  xyz 
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LOCAL  CYLINDRICAL  COORDINATE 

SYSTEM  ©  USED  TO  LOCATE  GRID  POINTS 
ON  CYLINDRICAL  PART  OF  BRACKET 


THREE  LOCAL  COORDINATE  SYSTEMS  USED  TQ  DEFINE 

ANISOTROPIC  MATERIAL  PROPERTIES  OF  SOLID  ELEMENTS 
THAT  CONSTITUTE  PARTS  1  AND  2  (5)  ,  PART  3  ®  , 

AND  PART  4  (!) 


Figure  B-8.  C-l  Coordinate  Systems 
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coordinates  of  all  grid  points  have  positive  values.  The  grid 
points  of  all  the  flat  regions  (Parts  1,  2,  and  4)  are  located  with 
reference  to  this  system,  which  is  directed  by  an  appropriate 
entry  in  Field  3  of  the  GRID  card.  The  displacements,  degi*ees 
of  freedom,  and  constraints  at  all  grid  points  are  also  defined 
with  reference  to  this  basic  coordinate  system  by  making  a  corre¬ 
sponding  entry  in  Field  7  of  the  appropriate  GRID  cards. 

•  A  local  cylindrical  coordinate  system  (defined  with  reference  to 
the  basic  system  described  above)  used  for  locating  the  grid 
points  on  the  cylindrical  part  of  the  bracket.  Field  3  of  the 
corresponding  GRID  cards  defines  this  system. 

« 

•  Three  local  coordinate  systems  (also  established  with  reference 
to  the  basic  system)  used  to  define  the  anisotropic  material 
properties  of  the  solid  elements  constituting  Parts  1  and  2, 

Part  3,  and  Part  4,  respectively,  of  the  bracket.  Systems  3  and  5, 
which  arc  rectangular,  correspond  to  the  flat  parts,  and  System  4, 
which  is  cylindrical,  pertains  to  the  curved  part. 

These  systems  are  referenced  on  the  appropriate  PSOLID  card, 
which  in  turn  references  the  corresponding  MAT9  card.  The 
orientation  of  these  systems  was  selected  such  that  Direction  1 
is  consistently  normal  to  and  radiating  out  of  all  elements  of  the  6 

bracket.  All  laminae  composing  the  bracket  are  thus  parallel  to  B 

Plane  2-3  of  the  related  material  coordinate  system  at  all  loca¬ 
tions.  This  orientation,  which  is  dictated  by  the  geometry  of  the 
cylindrical  part,  allows  the  material  properties  of  any  continuous 
lamina  to  be  defined  in  a  consistent  manner. 

The  NASTRAN  program  prints  out  the  element  stresses  in 
directions  parallel  to  the  corresponding  material  coordinate 
systems. 

Grid  Point  and  Element  Numbering  Schemes 

The  C-l  preprocessor  model  lays  out  the  mesh  and  assigns  identification 
numbers  for  the  grid  points  and  elements  at  the  top  and  bottom  of  each  layer, 
as  illustrated  (for  a  single-layer  model)  in  Figure  B-9.  First,  the  grid 
points  on  the  bottom  surface  of  Part  1  are  numbered,  starting  from  the 
washer  centerline  and  proceeding  in  a  sweeping  fashion  in  the  -x  direction 
toward  the  free  edge.  The  numbers  are  assigned  consecutively,  starting 
with  1.  The  program  then  moves  to  the  top  surface  (in  the  +y  direction), 
increments  the  ID  numbers  by  10,  000,  and  assigns  grid  point  IDs  in  the 
same  manner  as  for  the  bottom  surface. 
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Figure  B-9.  Grid  Point  and  Element  ID  Numbers 


For  models  with  more  than  one  layer,  the  program  moves  up  one  layer  at  a 
time  until  it  reaches  the  top  surface.  The  elements  for  Part  1  are  numbered 
following  the  same  general  directions  as  for  the  grid  point  numbering. 

After  the  grid  points  and  elements  of  Part  1  have  been  numbered,  the  program 
provides  grid  point  IDs  for  the  bottom  surface  of  Part  2,  starting  with  num¬ 
ber  1001  and  moving  from  the  washer  centerline  to  the  tangent  line.  The 
numbers  of  the  nodes  one  layer  higher  are  incremented  by  10,  000,  and  the 
element  IDs  start  with  II,  001,  v 

The  grid  points  for  Parts  3  and  4  are  given  numbers  consecutive  with  those 

assigned  to  Part  2.  The  element  numbers  for  Part  3  start  with  2001  and 

those  for  Part  4  start  with  3001.  * 

The  ID  numbers  given  to  grid  points  near  the  washer  should  be  carefully 
noted  because  that  area  is  numbered  according  to  a  modified  scheme  to 
account  for  the  circular  boundary  and  the  wedge-shaped  elements  required 
to  model  it. 

C-l  Input  Data 


The  user  essentially  specifies  the  basic  dimensions  of  the  bracket  and  the 
desired  fineness  of  the  mesh  by  giving  the  number  of  divisions  along  the 
three  axes  for  each  of  the  four  parts  of  the  bracket.  The  required  input 
parameters  are  defined  as: 


Width  (W) 


Width  of  the  modeled  half-symmetrical  bracket,  which 
remains  uniform  over  ail  four  parts. 


A  =  Typical  element  dimension  in  the  width  direction,  also 
w 

uniform  over  all  four  parts, 

Thickness  (T.)  =  Thickness  of  the  i*-^  lamina,  entered  as  T(l),  (T2) . 

T(n),  starting  from  the  bottom. 


Layers  =  Number  of  laminae  making  up  tb«  total  thickness.  Up 
to  25  layers  may  be  specified  (Default  =  1). 

D  =  Distance  from  the  free  transverse  edge  to  the  center  of 
e  w  ° 

the  washer  defining  the  limits  of  Part  1% 

A  =  Typical  element  dimension  in  the  Dew  direction.  Along 
with  Aw,  this  parameter  establishes  the  mesh  density 
in  Part  1  ♦ 
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R  =  Radius  of  washer  or  circular  opening  in  the  model, 
w 

D  =  Distance  from  the  center  of  the  washer  to  the  tangent 

wt 

line  defining  the  limits  of  Part  2. 

A  =  Typical  element  dimension  in  the  Dw^  direction.  Along 
with  Aw,  this  parameter  establishes  the  mesh  density 
in  Part  2. 

R.  =  Inside  radius  of  the  cylindrical  part  (bend  radius), 
b 

Aq  =  Typical  angle  (in  degrees)  subtended  by  the  radial  faces 
of  the  converging  elements  of  the  cylindrical  part. 

Along  with  Aw,  this  parameter  establishes  the  mesh 
density  in  Part  3. 

=  Distance  from  the  transverse  loaded  edge  to  the  closest 
1  tangent  line.  This  parameter  defines  the  limits  of 
Part  4. 

Ajt  =  Typical  element  dimension  in  the  D{t  direction.  Along 
with  Aw,  this  parameter  establishes  the  mesh  density 
in  Part  4. 

Tolerance  =  This  parameter  controls  the  element  dimensions  while 
fitting  the  elements  in  around  the  circumference  of  the 
washer.  It  defines  the  minimum  length  to  which  the 
side  of  an  element  may  be  reduced,  or  the  maximum 
length  to  which  an  element  may  be  increased  to  meet 
the  circular  boundary. 

Actual  data  input  to  the  C-l  preprocessor  consists  of  the  names  of  the 
parameters  (Table  B-l)  and  their  respective  values,  entered  in  free  format 
and  in  free  order.  Lines  898  through  901  of  the  prog.ram  listing,  presented 
as  Appendix  C,  constitute  an  example  of  user  data  input  (this  example  corre¬ 
sponds  to  the  bracket  illustrated  in  Figure  B-9).  An  echo  of  the  input  param¬ 
eters  is  printed  along  with  the  run  output. 

A  comprehensive  flow  chart  showing  the  sequence  of  program  operations  is 
given  in  Appendix  D. 
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TABLE  B-l.  INPUT  PARAMETER  NAMES 


Input  Parameters 

Parameter  Names 

Width 

WIDTH 

Aw 

DELTAX 

Thickness  T(i) 

T  (i) 

Layers 

LAYERS 

Dew 

HT2 

Aew 

DELTY2 

Rw 

RADIUS 

Dwt 

LEGX1 

^wt 

DELTAY 

Rb 

BEND 

A0 

DELTAT 

Dlt 

LEGY 

Alt 

DELTA Z 

Tolerance 

TOLER 

Job  Control  Statements 


The  first  part  of  the  C-l  model  JCL  (job  control  list)  is  a  command  to 
execute  FORTRAN  programs,  and  the  second  pa  -t  specifies  the  disposition 
of  the  output  (save  or  dispose).  The  JCL  for  ttv  source  program  listing 
shown  in  Appendix  C  is  valid  for  the  IBM  360/370  computer.  Lines  1  and  2 
show  the  user  ID  and  the  Execute  FORTRAN  command.  Lines  895 
through  897  specify  that  Tape  Unit  7  be  saved  and  catalogued  on  on-line  disk 
pack  WYLBUR.  Tape  Unit  7  contains  the  NASTRAN  Bulk  Data  card  images, 
which  are  to  be  used  for  the  subsequent  stress  analysis  run. 


Typical  C-l  Output 


The  program  produces  three  types  of  output:  an  echo  of  the  input  parameters, 
error  messages,  and  the  Bulk  Data  cards  CHEXA,  CPENTA,  GRID,  and 
CORD2C,  printed  in  8-column  NASTRAN  format.  The  first  two  types  of  out¬ 
put  are  written  on  Tape  Unit  6  and  are  printed  along  with  the  preprocessor 
run,  and  the  bulk  data  is  written  on  Tape  Unit  7  and  saved  on  an  on-line  disk 
pack  to  be  supplemented  with  additional  data  for  the  subsequent  NASTRAN 
run.  Appendix  E  shov/s  the  C-l  model  preprocessor  program  output,  and 
Appendix  F  presents  the  bulk  data  generated  by  the  program. 

FULL  MODEL  NASTRAN 

To  conduct  a  full  model  NASTRAN  ,  the  Bulk  Data  cards  generated  by  the 
C-l  preprocessor  model  must  be  supplemented  by  appropriate  Executive 
'Control,  Case  Control,  and  Bulk  Data  cards  defining  the  boundary  conditions, 
material  properties,  and  loading. 

Boundary  Conditions 

Figure  B-10  shows  the  constraints  imposed  on  the  bracket: 

•  The  top  edge  of  the  free  transverse  side  is  restrained  from 
motion  in  the  vertical  direction  (U2  =  0). 

•  The  washer  boundary  (circular  opening)  is  assumed  to  be  rigidly 
constrained  (U1  =  U2  =  U3  =  0)  along  both  the  top  and  the 
bottom  edges. 

•  Since  only  half  the  bracket  is  modeled  (because  of  structural 
and  loading  symmetry),  appropriate  boundary  conditions 
(U3  =  0)  are  imposed  on  all  grid  points  along  the  face  of 
symmetry. 

All  these  constraints  are  effected  by  including  additional  SPC1  cards  in  the 
Bulk  Data  deck  and  the  corresponding  SPC  card  in  the  Case  Control  deck. 
Since  HEXA  and  PENTA  elements  relate  only  to  the  translational  degrees 
of  freedom  (1,  2,  and  3),  the  GRDSET  card  is  used  to  constrain  all  the 
rotational  degrees  of  freedom  (4,  5,  and  6)  and  thus  prevent  the  singularity 
problem. 
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CONSTRAINED  AT  CENTERLINE  FOR  SYMMETRY 

WASHER  BOUNDARY  FIXED 

EDGE  CONSTRAINED  NORMALLY 


Figure  B- 10,  C-l  Boundary  Conditions 


Material  Properties 


The  bracket  construction  is  defined  by  including  PSOLID  and  MAT9  cards  in 
the  Bulk  Data  deck.  The  appropriate  material  coordinate  system  is  input  on 
the  PSOLID  card,  and  a  symmetric  6  by  6  material  property  matrix  Gj;  is 
input  on  the  MAT9  card  to  define  the  anisotropic  properties  of  the  solid, 
isoparametric  elements.  For  the  laminated  bracket,  the  Gjj  matrix  is 
defined  as 


(1  "  V23l'32)El1  (V21  +  V23V31)E11  ^31  +  VI2V32)Eli  °  °  ° 


(1  “  V31  V13)E22  (v32  +  ‘'l2V31)E22  0  0  0 


SYMMETRIC 


(1  '  V12V21)E33  °  ° 


G12  0 


0 

0 


G 


23 


0 


G 


31 


where 


V  =  1  "  V12  VU  '  v23  v32  ‘  V31  V13  '  2  V\Z  ^23 ^3 1 


for  the  kfck  lamina 


[ak]  .  [Tk]‘[ak]  [xk] 
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where 
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-mn 

mn 
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(m  -  n  ) 
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0 

0 

0 

n 

0 

m 

4 

m  =  cos  0 

n  =  sin  0 

fU 

where  the  transformation  matrix  T  for  the  k  lamina  define  a  rotation 
about  the  x  axis  as  illustrated  in  Figure  B-ll. 
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Applied  Loads 


Two  load  conditions  were  imposed  on  the  C-l  bracket  model: 

•  A  uniformly  distributed  tension  load  across  the  loaded  transverse 
edge  (Figure  B-12a) 

•  A  uniformly  distributed  clockwise  couple  across  the  edge  to 
compensate  for  eccentric  tensile  loads  (Figure  B-12b) 


"o/2  V2 

Figure  B-12.  Load  Conditions 

These  loads  are  applied  by  including  FORCE  cards  in  the  Bulk  Data  deck  and 
the  corresponding  LOAD  cards  in  the  Case  Control  deck. 

Bandwidth  (Wavefront)  Optimization 


It  is  advisable,  especially  for  large  models,  to  employ  a  bandwidth  or 
wavefront  minimization  subroutine  to  make  optimal  use  of  computer 
resources.  With  the  MSC  NASTRAN  program,  this  is  accomplished  by 
using  a  NASTRAN  preprocessor  card  (parameter  PREOPT  =  1). 

C-l  Data  Check  and  Plot  Run 

Before  making  a  solution  run,  it  is  desirable  to  examine  the  preprocessor- 
produced  finite  element  model  by  making  a  data  check  and  plot  run  using 
several  carefully  selected  points.  Appendix  G  shows  the  NASTRAN  data 
deck  setup  for  making  a  data  check  and  plot  run  and  the  undeformed  structure 
plots  produced. 

Care  should  be  taken  to  save  the  plot  files  by  inputting  the  proper  job  control 
statements. 
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NASTRAN  C-l  Solution  Run 


To  make  a  NASTRAN  solution  run,  the  following  cards  must  be  added  to  the 
Bulk  Data  deck  generated  by  the  C-l  preprocessor: 

•  NASTRAN  wavefront  optimization  card  (PREOPT  =  1) 

•  Executive  Control  deck 

•  Case  Control  deck 

•  Additional  Bulk  Data  cards: 

-  CORD2R  cards  to  define  the  material  coordinate  systems 

GRDSET  cards  to  constrain  the  redundant  degrees  of 
freedom  (4,  5,  and  6) 

-  FORCE  cards  for  the  two  loading  cases 

-  MAT9  material  properties  cards 

-  PSOLID  cards  for  the  various  groups  of  solid  elements 
SPC1  cards  to  impose  the  necessary  boundary  conditions 
ENDDATA  card 

The  printout  from  a  NASTRAN  solution  run,  including  an  echo  of  the  completed 
input  data  decks,  is  presented  in  Appendix  H.  This  output  corresponds  to  the 
bracket  model  shown  in  Figure  B-9, 

SINGLE  STRIP  C-2  PREPROCESSOR 

The  C-2  model  preprocessor  was  developed  to  postprocess  the  data  generated 
by  the  C-l  preprocessor  model.  Its  function  is  to  extract  the  bulk  data  for 
a  particular  strip  out  of  the  multilayered  full  bracket  model. 

The  user  specifies  the  sequence  number  of  the  desired  strip  (parameter 
ISTRIP),  starting  from  the  free  edge,  and  the  total  number  of  strips 
(parameter  ISTRPS)  that  comprise  the  bracket  model.  The  grid  point  and 
element  ID  numbers  previously  assigned  are  retained  for  the  C-2  run. 
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The  program  reads  the  C-l  bulk  data  generated  for  the  full  bracket  model 
and  identifies  and  outputs  the  GRID,  CHEXA,  and  CPENTA  cards  (the 
CORD2R  cards  are  also  extracted)  for  all  layers  belonging  to  the  desired 
strip,  which  terminates  at  the  washer  opening.  The  corresponding  part  of 
the  model  on  the  other  side  of  the  washer  opening  is  assumed  to  have  no 
significant  influence  on  the  results  because  the  washer  is  assumed  to 
completely  restrain  the  bracket  along  its  circular  boundary. 

The  C-2  model  preprocessor  program  consists  of  approximately  120  FORTRAN 
statements  (see  Appendix  I  for  the  program  listing),  A  detailed  flowchart 
that  explains  the  logic  and  sequence  of  program  operations  is  presented  in 
Appendix  J. 

Figure  B-13  illustrates  the  "multilayer"  input  data  required  for  the  separate 
C-l  run  necessary  to  produce  the  major  input  data  for  the  C-2  preprocessor 
model. 

Job  Control  Statements 

The  C-2  model  preprocessor  has  a  two-part  JCL  similar  to  that  of  the  C-l 
preprocessor.  The  first  part  contains  the  user  ID  and  the  Execute 
FORTRAN  command,  and  the  second  part  specifies  the  disposition  of  the 
output  (save  or  dispose).  The  C-2  JCL  also  manages  two  tape  units:  Unit  1 
(input)  contains,  in  card  format,  the  bulk  data  generated  by  the  C-l  pre¬ 
processor  for  the  full  (multilayer,  multistrip)  bracket  model,  and  Unit  2 
(output)  stores  the  bulk  data  extracted  for  the  critical  strip  and  later  outputs 
it  for  NASTRAN  analysis.  Lines  113  through  116  of  the  program  listing 
(Appendix  I)  show  some  of  the  job  control  statements,  and  line  117  specifies 
the  desired  strip  number  and  the  total  number  of  strips  in  the  bracket  model. 
On-line  disk  pack  WYLBUR  is  employed  to  read  the  specified  Bulk  Data  cards 
and  write  the  selected  Data  cards. 

The  program  designates  Tape  Units  5  and  6  as  the  current  input  and  output 
units,  in  the  usual  fashion, 

T ypica  1  C-2  Output 


This  program  produces  two  types  of  output:  an  echo  of  the  input  parameters, 
which  is  written  on  Tape  Unit  6  and  printed  along  with  the  preprocessor  run, 
and  Bulk  Data  cards  CHEXA,  CPENTA,  GRID,  and  CORD2C,  printed  in 
typical  8-column  NASTRAN  format.  (Note  that  the  program  assigns  a  PID 
(property  ID)  value  of  1,  2,  or  3  on  the  CHEXA  and  CPENTA  cards  for  the 
bottom  layer  and  increments  by  10  for  each  subsequent  layer  above.  )  This 
bulk  data  is  written  on  Tape  Unit  2  (input)  and  saved  on  on-line  disk  pack 
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■^MSKqpi 


f 

f 


f 


&PARAMS 

T(1 )  =  0.01,  T(2)  =  0.01,  T(3)  =  0.01,  T(4)  =  0.01,  T(5)  =  0.01,  T(6)  =  0.01, 
T(7)  =  0.005,  T( 8)  =  0.01,  T(9)  =  0.01,  T(10)  =  .01,  T(ll)  =  .01,  T(12)  =  .01, 
T(13)  =  .01,  LAYERS  =  13,  WIDTH  =  0.5,  HT2  =  0.4,  RADIUS  =  0.25,  DELTY2  =  0.20, 
LE6X1  =  0.27,  DELTAY  =  0.09,  BEND  =  0.125,  DELTAT  =  15.0,  LE6Y  =  0.17, 

DELTAZ  =  0.17,  DELTAX  =0.1,  TOLER  =  0.015 
&  END 

NOTES: 

1.  COLUMN  1  MUST  BE  BLANK  FOR  ALL  PARAM  CARDS. 

2.  &PARAMS  IS  ENTERED  IN  COLUMNS  2-8  AND  &END  IN  COLUMNS  2-5. 

3.  THE  VALUES  OF  PARAMETERS  HAVE  FORMAT  F8.4;  THUS,  THERE  SHOULD  BE  NO  MORE 
THAN  THREE  DIGITS  TO  THE  LEFT  OF  THE  DECIMAL  AND  NO  MORE  THAN  FOUR  DIGITS 
TO  THE  RIGHT. 

4.  ALL  13  PARAMETERS  AND  ONE  THICKNESS  PER  LAYER  MUST  BE  SPECIFIED;  THE 
DEFAULT  VALUE  FOR  LAYERS  EQUALS  1. 


Figure  B-13.  Sample  Input  Data  for  Multilayer 
C-l  Model  Preprocessor  Run 
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WYLBUR,  as  previously  described,  and  additional  data  ‘s  appended  for  the 
subsequent  NASTRAN  run.  The  program  listing  and  output  are  shown  in 
Appendix  K. 

"INGLE  STRIP  NASTRAN 


In  order  to  conduct  a  single  strip  NASTRAN  ,  the  Bulk  Data  cards  gene¬ 
rated  by  the  C-2  model  preprocessor  must  be  supplemented  with  suitable 
Executive  Control  and  Case  Control  decks  and  Bulk  Data  cards  that  define 
the  boundary  conditions  and  material  properties. 

Boundary  Conditions 

Three  types  of  boundary  conditions  must  be  imposed: 

•  The  grid  points  lying  on  the  exposed  surfaces  (top  and  bottom) 
must  be  subjected  to  the  same  constraints  as  they  were  during 
the  C-l  model  analysis,  These  constraints  are  effected  by 
including  the  appropriate  SPC  (or  SPC1)  and  GRDSET  cards. 

•  The  rest  of  the  grid  points  on  exposed  surfaces,  which  were 
unconstrained  during  the  C-l  model  analysis,  are  subjected  to 
the  same  finite  displacements  (Tl,  T2,  T3)  as  during  the  corre¬ 
sponding  C-l  model  analysis.  This  condition  is  effected  by 
including  the  appropriate  SPC  cards. 

•  The  interior  grid  points  newly  produced  by  the  multilayered 
construction  are  interlinked  to  the  exterior  grid  points  by 
continuous  RSPLINE  elements  along  all  the  straight  lines  across 
the  thickness  of  the  bracket.  It  was  assumed  that  RSPLINE  ele¬ 
ments  would  provide  a  more  realistic  boundary  condition  for  the 
single  strip  analysis  (than  MPC  or  RBE  elements),  and  the  few 
test  runs  carried  out  confirmed  this  assumption. 

v  Note  that  no  loads  need  be  applied  for  this  analysis;  the  model  is  deformed 
under  the  influence  of  displacement  boundary  conditions. 

Material  Properties 

V 

The  number  of  MAT9  cards  required  equals  the  number  of  types  of  layers 
that  comprise  the  angle  bracket.  The  number  of  PSOLID  cards  required 
equals  the  number  of  sets  of  PID  values  assigned  to  the  various  CHEXA  and 
CPENTA  elements  by  the  C-l  preprocessor  program.  Three  groups  of 
PID  values  corresponding  to  three  parts  of  the  angle  bracket  are  shown  in 
Figure  B-14, 
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Dummy  Elements 


Since  all  grid  points  in  the  single  strip  model  are  subjected  to  either  a 
single-  or  multipoint  constraint,  NASTRAN  would  be  unable  to  initiate 
execution  without  a  valid  A-SET  matrix.  Three  CBAR  elements  are  input 
to  define  the  additional  grid  points  required. 

C-2  Data  Check  and  Plot  Run 


7 

F 


The  output  produced  by  a  NASTRAN  data  check  and  plot  run  and  the  undeformed 
plots  produced  are  shown  in  Appendix  L. 

NASTRAN  C-2  Solution  Run 


To  conduct  a  NASTRAN  solution  run,  the  bulk  data  generated  by  the  C-2 
model  preprocessor  must  be  supplemented  with  the  following  cards: 

•  NASTRAN  wavefront  optimization  card  (PREOPT  =  1) 

•  Executive  Control  deck 

•  Case  Control  deck 

•  Additional  Bulk  Data  cards: 

-  CORD2R  cards  to  define  the  material  coordinate  systems 

-  GRDSET  cards  to  constrain  the  redundant  degrees  of 
freedom  (4,  5,  and  6) 

Additional  GRID,  CBAR,  PBAR,  and  MAT1  cards  to  provide 
for  the  required  dummy  elements 

-  MAT9  material  properties  cards 

-  PSOLID  cards  for  the  various  groups  of  solid  elements 

-  SPC,  SPC1,  and  RSPLINE  cards  to  impose  the  necessary 
boundary  conditions 

ENDDATA  card 

Part  of  the  printout  from  a  NASTRAN  C-2  solution  run,  including  an  echo 
of  the  completed  input  data  checks,  is  presented  in  Appendix  M.  This 
example  corresponds  to  the  angle  bracket  shown  in  Figure  B-9. 
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N AST RAN  RESULTS 

Throughout  this  study  T300  graphite/5208  epo^y  was  used  for  the  test  case. 
The  stacking  sequence  [0^/45^/0^]  was  used,  where  the  symbol  #  stands 
for  crossplied  fabric.  Two  load  cases  were  examined:  a  uniform  tension 
load  and  a  uniform  clockwise  couple.  The  sample  ten-strip  model  executed 
by  the  NASTRA.N  plotter  is  shown  in  Figure  B-15.  The  following  geometries 
were  used: 

T.  a  thickness  of  the  i^  lamina  (0.  14  inch  TYP) 


R,  =  bend  radius  (0.  125  inch) 
b 


R  =  washer  radius  (0.  219  inch) 
w 

D  =  distance  from  the  center  of  the  washer  to  the  tangent  line 
wt  (0.  249  inch) 

D  =  distance  from  the  free  transverse  edge  to  the  center  of  the 

GW 

washer  (0.40  inch) 

D  =  distance  from  the  transverse  loaded  edge  to  the  closest 
tangent  line  (0.  249  inch) 

Width  =  width  of  the  modeled  half-symmetrical  bracket  (1.0  inch) 
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Figure  B-15.  Sample  Ten-Strip  Model 
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Using  the  C-l  model  preprocessor,  the  NASTRAN  data  output  from  the  uniform 
tension  load  case  was  plotted  in  such  a  way  that  it  could  easily  be  compared 
with  data  derived  from  mathematical  theory. 

In  Figure  B-16  the  tangential  stress  <r  /<r Q  is  plotted  versus  bend  angle  along 
the  centerline  strip;  it  is  most  critical  at  the  inner  surface  and  its  gradient 
peaks  at  0  =  75  to  85  degrees.  Interlaminar  shear  stress  is  also  expected 
to  be  most  critical  at  this  location.  (All  stresses  plotted  in  these  figures 
have  been  normalized. ) 
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Figure  B-16.  Tangential  Stress  Versus  Bend  Angle 
Along  the  Centerline  Strip:  Uniform 
Tension  Load  Case 


In  Figure  B-17  this  same  stress  is  plotted  versus  angle  width  at  ^ 
e  -  85  degrees  (angle  of  maximum  stress).  This  stress  ana  its  gra  len 
U",  appear  to  peak  at  the  inner  surface  and  closest  to  the  centerhn.  of 

the  angle. 
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Figure  B-17.  Tangential  Stress  Versus  Angle  Width: 
Uniform  Tension  Load  Case 
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INTERLAMINAR  SHEAR  STRESS 


In  Figure  B-18  the  interlaminar  shear  stress  ^xy^O  is  plotted  versus  bend 
angle.  The  shear  stress  reaches  a  maximum  at  0  =  85  to  90  degrees  and 
remains  relatively  constant  across  the  thickness  of  the  laminate  as  evidenced 
by  the  positive  correlation  of  the  curves. 


Figure  B-18.  Interlaminar  Shear  Stress  Versus  Bend  Angle: 
Uniform  Tension  Load  Case 


In  Figure  B-19  this  same  stress  is  plotted  versus  angle  width  at  the  angles 
indicated.  At  8  =  5  degrees,  the  stress  is  maximum  at  the  edge  of  the 
angle  and  decreases  toward  the  centerline.  At  all  other  angles,  the  stress 
increases  to  a  maximum  at  the  centerline.  The  transverse  shear  strength 
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Figure  B-19.  Interlaminar  Shear  Stress  Versus  Angle  Width: 
Uniform  Tension  Load  Case 


The  normal  stress  (normal  to  the  laminate  surface)  crx/c Tq  is  plotted  versus 
bend  angle  in  Figure  B-20,  In  general,  this  is  a  compression  field;  however, 
at  bend  angles  up  to  6  =  15  degrees  a  low-magnitude  tension  field  is  present 
near  the  centerline  of  the  angle  (Figure  B-21).  Interlaminar  tension  can 
only  occur  in  the  flat  area  between  the  applied  load  and  the  bend  angle,  acting 
perpendicular  to  the  applied  load. 
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Figure  B-20.  Normal  Stress  Versus  Bend  Angle: 

Uniform  Tension  Load  Case 
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To  determine  the  magnitude  of  the  interlaminar  stresses,  a  C-2  run  was 
executed  on  the  centerline  strip  of  the  ten-strip  test  model  (see  Figure  C-22). 
Interlaminar  stress  analyses  can  be  carried  out  on  any  layer  or,  in  some 
cases,  the  entire  model  can  be  analyzed  layer  by  layer.  In  some  instances 
more  than  one  lamina  of  the  same  type  with  the  same  orientation  are  lumped 
together  into  a  single  layer  to  reduce  computer  costs. 


Figure  B-22,  Laminated  Centerline  Strip  of  the 
Ten-Strip  Test  Model 


The  interlaminar  shear  stress  rXy/(!'Q  along  the  bend  angle  is  shown  for  all 
nine  laminae  in  Figure  B-23.  The  lamina  nearest  the  inner  surface  is 
identified  as  LO ,  the  next  is  LI,  and  the  lamina  nearest  the  outer  surface 
is  L8.  Zero-degree  crossplied  fabiic  laminae  are  represented  by  the  even 
numbers  (and  zero),  and  the  45-degree  crossplied  fabric  laminae  are 
represented  by  the  odd  numbers.  The  interlaminar  shear  stress  peaks 
between  the  LO  and  LI  laminae  at  0  =  75  degrees. 
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Figure  B-23.  Interlaminar  Shear  Stress  Versus  Bend  Angle: 
Uniform  Tension  Load  Case 


In  Figure  B-24  the  interlaminar  shear  stress  through  the  laminate  thickness 
is  shown  at  6=5  and  75  degrees.  These  stresses  are  very  nearly  equal  at 
the  outer  surface. 


Figure  B-24.  Interlaminar  Shear  Stress  Through  the  Laminate 
Thickness  at  0  =  5  and  75  degrees:  Uniform 
Tension  Load  Case 


NORMAL  STRESS  ax/o0 


Normal  stress  along  the  bend  angle  is  shown  in  Figure  B-25.  This  stress 
is  chiefly  in  compression,  but  it  is  in  tension  up  to  about  8=15  degrees. 
In  the  flat  region  up  to  0  =  0  degrees,  this  stress  is  maximum  and  is 


BEND  ANGLE,  DEGREES 

Figure  B-25,  Normal  Stress  Along  the  Bend  Angle: 
Uniform  Tension  Load  Case 


Normal  stress  along  the  centerline  strip  is  shown  at  6  =  5  and  75  degrees 
in  Figure  B-26.  At  8  =  5  degrees  this  stress  is  an  interlaminar  tension 
with  a  magnitude  of  approximately  0.  05. 


LAMINATE  THICKNESS  Tj/T 

Figure  B-26.  Normal  Stress  Through  the  Laminate 
Thickness  at  0  =  5  and  75  degrees: 
Uniform  Tension  Load  Case 


NORMAL  STRESS  ox/c0 


Normal  stress  is  plotted  versus  bend  angle  in  Figure  B-28.  This  stress 
compression  field,  is  rather  uniform  all  along  the  bend  angle. 


BEND  ANGLE,  DEGREES 

Figure  B-28.  Normal  Stress  Versus  Bend  Angle:  Uniform 
Clockwise  Couple  Load  Case 


PARAMETRIC  STUDIES 


Parametric  studies  were  conducted  using  the  C-l  preprocessor  model  to 
determine  the  influence  of  various  design  parameters  (Table  B-2).  The 
finite  element  model  used  for  these  studies  varied  somewhat  from  that 
described  previously;  five  strips  were  used  instead  of  ten.  This  coarser 
grid  gave  results  comparable  with  those  obtained  using  the  ten-strip  model, 
at  one-fourth  the  cost  in  computer  time. 

The  parametric  study  was  based  on  the  behavior  of  the  in-plane  tangential 
stress  gradient  dcTy/d(rO)  and  the  interlaminar  shear  stress  TXy,  which 
determines  interlaminar  shear  stress  recovery.  Tangential  stress  ffy/o-Q 
is  plotted  versus  bend  angle  for  varying  thickness-to-bend  radius  ratios  in 
Figure  B-29.  It  can  be  seen  that  the  tangential  stress  gradient  decreases 
with  increasing  thickness-to-bend  radius  ratio;  therefore,  the  larger  the 
laminate  thickness  and  the  lower  the  bend  radius,  the  smaller  the  inte-  laminar 
shear  stress. 

TABLE  B-2.  PARAMETRIC  ANALYSIS 


Bend  Washer 

Run  Radius,  Thickness,  Radius,  Stacking  hv’  \vt'  <-t* 

Number  inch  inch  inch  Sequence  inch  inch  degrees  inch 


BEND  ANGIE,  DEGREES 

Figure  B-29.  Tangential  Stress  Versus  Bend  Angle 
for  Varying  Thickness-to-Bend  Radius 
Ratios:  Uniform  Tension  Load  Case 

Tangential  stress  is  plotted  versus  bend  angle  for  varying  stacking  sequences 
(with  all  laminae  0.  125  inch  thick)  in  Figure  B-30.  This  stress  and  its 
gradient  peak  at  the  inner  surface  (6  =  75  to  85  degrees).  The  slope  of  the 
gradient  is  lowest  for  a  0-degree  laminate  and  highest  for  a  ±45-degree 
laminate;  however,  tangential  stress  itself  is  highest  for  a  0-degree 
laminate.  All  other  stacking  sequences  fall  in  between  the  extremes.  A 
laminate  may  be  chosen  based  on  these  curves,  but  the  minimum  thickness 
for  a  given  application  may  depend  on  other,  more  important  criteria. 
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Figure  B-30.  Tangential  Stress  Versus  Bend  Angle 
for  Varying  Stacking  Sequences: 
Uniform  Tension  Load  Case 


Interlaminar  shear  stress  is  plotted  versus  bend  angle  as  a  function  of 
thickness-to-bend  radius  ratio  in  Figure  B-31,  At  a  bend  angle  of  90  degrees 
this  stress  decreases  with  increasing  thickness-to-bend  radius  ratio.  For 
a  ratio  of  1,  the  stress  varies  linearly  along  the  bend  angle  and,  up  to 
about  77  degrees,  is  the  highest  shown  {note  that  the  gradient  is  minimal  at 
77  degrees).  For  most  design  purposes,  therefore,  the  thickness-to-bend 
radius  ratio  should  be  as  high  as  possible. 


INTERLAMINAR  SHEAR  STRESS  t  Xy/°o 


0.125,  T  -  0. 
0.125;  T  -  0. 
0.125,  T  -  0. 
0.250,  T  -  0. 
0.500,  T  -  0. 

500,  T/r  -  4.00 
250V  T/r  -  2.00 
125!  T/r  -  1.0Q 
125;  T/r  -  0.5Q 
125,  T/r  -  0.25 
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Figure  B-31.  Interlaminar  Shear  Stress  Verses  Bend  Angle  for 
k  Varying  Thickness-to-Bend  Radius  Ratios. 

Uniform  Tension  Load  Case 

Interlaminar  shear  stress  Txy/°‘0  1S  ^n'TttiA'tl' degrees,  the  shear  stress 
Figure  B-32.  For  bend  angles  ^‘'Vee«  0  and  laminate> 

is  highest  for  a  0-degree  lamtna  e  between  For  bend  angles  between 

With  the  0/M5  degree  laminates  a  ing  ^  ^  ^  pgak  shear  stress,  which 

77  and  85  degrees,  the  order  rev  ±45 -degree  laminate  and  lowest 

occurs  at  6  =  85  degrees,  is  highest  for  a  ±45-degre 

for  a  0-degree  laminate. 

range. 
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Figure  B-32,  Interlaminar  Shear  Stress  Versus  Bend  Angle  for 
Varying  Stacking  Sequences:  Uniform  Tension 
Load  Case 

A  C-2  model  analysis  was  performed  to  determine  the  influence  of  the 
lamina  stacking  sequence  on  interlaminar  stresses.  The  model  consisted 
of  a  25-ply  laminate  of  T300  graphit.e/5208  epoxy.  The  critical  strip, 
which  was  extracted  from  the  previous  ten-strip  C-l  model,  was  0.  I  inch 
wide.  Four  stacking  sequences  were  studied  (Figure  B-33). 

Interlaminar  shear  stress  is  plotted  across  the  laminate  thickness  for  the 
four  stacking  sequences  in  Figure  B-34,  Interlaminar  shear  stress  is 
independent  of  the  stacking  sequence  over  most  of  the  laminate  thickness; 
in  fact  the  only  discernible  difference  among  the  four  stacking  sequences 
occurs  near  the  outer  surface,  where  Sequence  3  appears  to  show  a  slightly 
lower  stress  value. 
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To  verify  the  importance  of  the  type  of  laminae  used  (fabric  or  tape),  a 
comparison  was  made  between  the  four  configurations  shown  in  Figure  B-33 
and  a  [0#/45#/0#]  laminate.  The  fabric  laminate  coincides  with  the  others 
for  laminates  between  0.  5  and  0.  65  inch  thick}  however,  for  all  other  thick¬ 
nesses  it  is  , •subjected  to  much  higher  interlaminar  shear  stress  levels. 

This  indicates  that  the  choice  of  material  would  be  tape. 

It  should  be  noted,  however,  that  mixing  is  very  important  in  keeping  the 
stresses  uniformly  distributed  throughout  the  laminate  thickness.  Stress 
gradients  are  highly  sensitive  to  induced  singularities  due  to  any  severe 
change  in  laminae  properties  within  a  laminate. 

EXPERIMENTAL  TESTS 

The  graphite,  Kevlar  49,  S-glass,  and  E-glass  composite  angle  specimens 
described  in  Table  B-3  were  fabricated  and  tested  after  3  to  4  days  in  the 
normal  laboratory  environment.  The  tension  test  setup  for  these  1 -inch¬ 
wide  specimens  is  shown  in  Figure  B-35. 

Both  incipient  local  matrix  failure  by  delamination  in  the  outer  plies  of  the 
corner  region  and  ultimate  filament  fracture  were  recorded.  Initial  matrix 
delaminations  were  audible  and  were  measured  as  sudden  changes  in  the 
slope  of  the  load-deflection  curve.  These  changes  of  slope  were  recorded 
in  two  ways: 

•  Displacement  from  top  of  grip  to  mid-bolt  head  (Delta  1) 

•  Test  machine  head  travel  (Delta  2) 

As  shown  in  Figure  B-35,  Delta  2  readings  have  more  than  twice  the 
magnitude  of  the  Delta  1  readings  in  the  elastic  range.  Delta  1  readings 
were  recorded  continuously  and  automatically,  and  Delta  2  readings  were 
taken  (from  the  gauges)  every  20  pounds  for  the  -1,  -3,  and  -5  specimens 
and  every  40  pounds  for  the  -2,  -4,  and  -6  specimens. 

The  typical  sequence  of  events  in  fracture  failures  is  illustrated  in 
Figure  B-36.  The  corners  of  thinner  angles  straighten  out  elastically  for 
a  distance  of  up  to  two  or  three  times  their  initial  radii.  Next  the  matrix 
fails  in  delamination,  and  finally  the  fibers  fracture  at  ultimate  load. 


Figure  B-35.  Test  Setup 
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Figure  B-36.  Fracture  Progression  in  Typical  Composite  Angle 


The  concept  of  yield  strength  being  two-thirds  of  ultimate  strength  is  not 
transferable  from  metals  to  composites.  Permanent  set  may  occur  any¬ 
where  from  75  percent  (thin  angles)  to  90  percent  of  ultimate  strength 
(thicker  angles). 

Thick  sections  are  more  ductile  than  thin  ones. 

Allowable  load  versus  thickness  in  composite  angles  is  shown  in  Figure  B-37 
for  an  eccentricity  of  0.5  inch.  A  similar  curve  for  2024-T3  aluminum  has 
been  added  for  comparison.  With  respect  to  angle  allowables,  only  graphite 
is  similar  to  aluminum. 


Figure  B-37.  Ultimate  Allowable  Loads  Versus  Thickness 
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APPENDIX  C 


C-l  MODEL  PREPROCESSOR  PROGRAM  LISTING 

1.  //JOB  (900006,, 068) ,PRE9127B.,CLASS*B  _ _ _  _  . 

2.  //STEP!  EXEC  FORTHCLG 

3.  DIMENSION  LAST (1000) . 1  CUR ( 1000 ) *IC (8 ) 

A.  REAt*8  LEGX1, LEGY, WIDTH, RADIUS ,0ELTAY,0ELTAX,T(26), TOLER ,X,Y (26), 

5.  *P10N6,XSAVE,YSAVE, ANCLE ,01ST,XLAST,YLAST»0ELTAT,YY, XX .DELTY2, 

6.  *BEN0, THETA ,Z (26). DELTAZ,R(26),HT2,XH0D1.XXM0D,XM00(26), 

7.  *YHOD(26),ZMOO,ZMOD2(26),THMOO,LEGX,LECXP1.LEGV  . . 

8.  NAMELIST  /PARAMS/  LEGX1 ,LECV ♦WIDTH, RADIUS,OELTAX,DELTAY,T, 

9.  *TOLER,DELTAT,BENO,OELTAZ  .LAYERS, 

10.  •0ELTY2.HT2 

11.  DATA  IGRIO/1/, JGR 10/10001/ ,IC0NT/0/»JCUR/0/ .JLAST/O/, IEL/1/ 

12.  DATA  LEGX1 ,LEGY«WICTH,RADIUS,OELTAX .OELTAY ,T0LER/7*O.O/ 

13.  DATA  T/26*0.0/  _  _  _ 

16.  DATA  OELTAT,BEND/2*6.O/.0ELTAZ/O.O/. LAYERS/O/, 0ELTY2/O.0/ 

15.  CATA  MT2/0.0/ 

16.  C 

17.  C 

18.  C  THIS  PROGM  IS  FOR  GENERATING  BULK  DATA  FOR  THE  FULL  BRACKET 

19.  C  ANO  IS  CALLED  .PRE«PROCESS.OR_FOR_C1  MODEL .  . . . 

20.  C 

21.  C  READ  IN  PARAMETERS 

22.  REA0I5, PARAMS) 

23.  IF ( LAYER S.EO.OILA VERS* 1 

2 A.  C  ECHO  PARAMETERS 

25.  WRITE(6, 8ILEGX1, LEGY, WIO.TH,RAOI.US, OELTAY, OELTAX.OELTA  I, 6EN0* _ _  .. 

26.  ♦TOLIR.OELTA2 , LAVERS, 0ELTY2.HT2 

27.  8  FORMAT  I ^PARAMETER  ECHO* ,/,‘OLECXl*  '.T13.F8.6,/, 

28.  *•  LECY*  '»T13»FB.6 ,/»•  WIDTH*  •, 

29.  •T13»F8»6/» •  RADIUS*  • .T13.F8.6 ,/, •  OELTA-Y*  • ,T13,FB.6 ,/, 

30.  •  •  DELTA-X*  •  ,T13,FB.6./,  •  DELTA*-!*  ',T13,F8.6,/'  BEND*  ',T13,F8.6 

31.  *,/,'  TOLERANCE*  * ,F8.6,/,' JDELTA-2*' ,T13, 

32.  *F8.6 ,/» *  LAYERS* '»T13»18«/»*  DELTAY2*' ,T13.F8\V,A'  HE  1GHT2* 

33.  *T13«F8»6) 

36.  CO  998  1*1 .LAYERS 

35.  WRITE (6,997)  1,T(I) 

36.997  FORMAT ( •  LAVER-', 12.'  THICKNESS*'.F8.6) 

37  .  998  CONTINUE  _ _ _  _ _  _ __ 

38.  1  FORMAT! 'GR10  • ,  18.8X.3F8.6) 

39.  IF (L AYERS. CT .25) GO  TO  900 

60.  C  INITIALIZE  CONSTANTS 

61.  LAYERC-LAYERSM 

62.  2(1 )*L£CY*BEND 

63..  00  35  1»2,LAVERG _  . 

66.  2(1  )*Z(I-1  )♦!  ( 1-1 )  “  . . 

65..  35  CONTINUE 

66. '  IEN02-0 

67. '  PI0N6-3. 16159/6. 

68.  IPS0L*1 

50*  C  . . .  . " 

51.  C  GENERATE  PIECE  BEFORE  FIRST  PIECE(MODEL  CHANGE  5/8/78) 

52.  C 

53.  C 

56.  C 

55.  C  START  AT  THE  LOWER  LEFTHAND  CORNER 

56.  C  THEN  MOVE  TO*  THE  RIGHT  UNTIL  WE  HIT  THE  CUTOUT 

57.  Y( 1 )*0.0 

58.  630  X«WIOTH 
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59.  C  GENERATE  FAR  LEFT  GRID  POINT 

60.  YY*~Y d ) 

61.  C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

62.  XXM00»YY*HT2  . . . . . .  .. 

63.  YMOOm-Zm 

6A,  ZMOO«X 

65.  MR1 TE ( 7,1) 1GR1 D.XXMOO. YMCD  ( 1 ) . 2M0D 

66.  00  A 95  I *2 .LAYERG 

67.  YH00d)*Zd) 

66.  ..  MRI TE (7 » 1 )  JGRIO.XXMOO..YMOD ( 1 ) . ZMOD _  .  „ 

69.  JCRID*JGRI 0*10000 

70.  A95  CONTINUE 

71.  C  STORE  GRID  10 

72.  JCUR*JCUR*1 

73.  ICUR( JCUR) *1GR 10 

7A.  C  INCREMENT  GRID. 10 . . . 

75.  1GR1D*1GR10*1 

76.  JGR10*1GRI0*10000 

77.  C  MOVE  TO  THE  LEFT 

78.  A90  X»X”DELTAX 

79.  C  SAVE  X  AND  Y 

60.  .  .  ,XSAVE«X _ _  .  . . ... 

61.  YSAVE*Y ( 1) 

82.  1F(Y(1).E0.0.0)XX-X 

63.  C  ARE  ME  PAST  THE  *5? 

8A.  ANGLE*DATANIVd)/X) 

85.  IF ( ANGLE «GT .PI ONA )G0  TO  5A0 

86.  C  ..  6EL0N  THE.  A5 . . _ 

87.  C  F1N0  DISTANCE  FROM  CUTOUT 

86.  1F(Y(1).GT .RADIUS) GO  TO  550 

89.  01ST«X-0S0RT<RAD1USM2«Y  (1)**2) 

90.  C  ARE  ME  M1TH1N  TOLERANCE  FROM  THE  CUTOUT 

91.  IF (01  ST ,LE .TOLER) GO  TO  A80 

92.  GO  TO  550  ..... _ _ _  .  . .  . . 

93.  C  A60VE  THE  A5 

9A.  5A0  IF ( X.GT .RADIUS )G0  TO  550 

95  .  01ST«Y(  1  )-0S0RT{RA01USM2-XM2  ) 

96.  IF < 0 1  ST *LE .TOLER ) GO  TO  560 

97.  C  NOT  AT  THE  CUTOUT  YET  SC  GENERATE  NORMAL  GRID  POINT 

.98.  550  YY— Yd)..  . ...  _  _ _ _  _ 

99.  C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

100.  XXM00«YY*HT2 

101.  YM00dJ»Zd) 

102.  ZMOD«X 

103.  WRITE (7. 1) 1GR ID.XXMOO.YMGDI 1 J .ZMOD 

10A.  00  555  1*2  .LAYERG. _ _ _ 

105.  YMODd  )*Z(  I ) 

106.  WRITE  (7,  UJGRID.XXMOD.  YMODd).  ZMOD 

107.  JGR ID* JGR10* 10000 

108.  555  CONTINUE 

109.  C  STORE  GRID  ID 

110.  JCUR«JCUR*1  ._  _ _ _ 

111.  1CUR ( JCUR )*1 GRID 

112.  C  INCREMENT  GRID  ID'S 

113.  1GR1D*1GRI0«1 

in.  JGR  ID*  1  GRID*  10000 

1)5.  C  IF  THIS  IS  THE  FIRST  LINE  OF  GRIDS,  DON'T  GENERATE  CONNECTIONS 
1*6.  IF(Yd),EC,0.0)C0„ TO  A90. 

117.  C  MAKE  SURE  WE  HAVE  A  POINT  NEXT  TO'  THIS  ONE 

116.  !F( JCUR.GT .JLASTIGO  TO  580 

119.  C  GENERATE  OUAD  ELEMENT 
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-,4  -> 


120.  C 

121. 
122. 
123. 
124  . 
123. 
126. 
127. 
126. 
129. .  . 

590 

FIRST  SET  UP  GRID  POINT  OROER 

IG(1)>!CUR(JCUR) 

IG(2)«ICUR(JCUR-l) 

IG(3)«LAST(JCUR-1) _ _ _ _ 

IG(4)«LAST (JCUR) 

IG(5)«IG(1)*10000 

16(6 )*IG( 2 )+ 10000 

1G(7)*1G(3)+10000 

1G(6)»1G(4 1+10000 

JEL*1EL 

•  - - 

130. 

JPSOL-IPSOL 

- 

131. 

DO  565  J«1 .LAVERS  . 

132. 

IF(J.EC.l)  GO  TO  567 

133. 

JEL*JEL+1000C  . -  . 

134. 

JPS0L«JPS0L*10 

* 

139. 

DO  566  K«1 .8 

136. 

!G(K )> ]G(K )♦ 10000 

137. 

566 

CONTINUE  .  .  . 

136.  C 

PUNCM  CONNECTION  CARD 

139. 

567 

MR1TE(7»2)  JEL*  JPSOL.  UG(  I)  .1*1 .6I.1C0NT 

140.  C 

INCREMENT  CONTINUATION  FIELD 

141. 

JCONTbICONT  — 

142. 

1CONTOCONT*! 

143.  C 

PUNCH  CONTINUATION  OF  CONNECTION  CARD 

144. 

WR1TE(7.3) JCONT. IG (7) * IG (6) 

143. 

565 

CONTINUE 

146.  C 

INCREMENT  ELEMENT  ID 

147. 

1ELMEL*!  .  .  _  _ _  _ 

148.  C 

KEEP  GOING  TILL  HE  HIT  THE  CUTOUT 

149. 

GD  TO  490 

190.  C 

IF  HE  DON'T  NAVE  A  POINT  NEXT  TO  THIS  ONE  PUT  ONE 

ON  THE  CURVE 

151. 

58C 

YY»-DSORT( PADI  US**2-XM2 ) 

152.  C 

TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORO 

SYSTEM 

153. 

XXM0D-YY*HT2 . . .  .  ... 

154. 

YMODdWm 

155. 

2M0D«X 

156. 

WRITE (7. 1) IGRID.XXMOD.YMODt 1 1 . ZMOD 

157. 

00  585  I «2  .LAYERG 

156. 

YMODdWm 

159. 

WRITE (7 il)  JGRID»XXMOO.»YMOO(  I  I...2M00 . . . 

160. 

JGR ID* JGRI 0* 10000 

161. 

565 

CONTINUE 

162.  C 

STORE  GR10  10 

163. 

JLAST*JLAST*1 

164. 

LAST(JLAST)*!CR10 

165.  C 

INCREMENT  GRID  ID  .  , 

166. 

1GRI0»1GR!0+1 

167. 

JGR 10*1 GRID* 10000 

168. 

GO  TO  590 

169.  C 

170.  C 

WE'VE  HIT  THE  CUTOUT.  SO  GENERATE 

171.  C 

A  GRID  POINT  ON  THE  CURVE  OF  THE  CUTOUT 

172.  C 

WE'RE  A60VE  THE  45.  SO  MOVE  IN  THE  Y -DIRECTION 

173. 

S60 

Y(  1  )>OSQRT (RADIUS**2-X**2> 

174. 

CO  TO  570 

175.  C 

WE'RE  6EL0W  THE  45  SO  MOVE  IN  THE  X-OIRECTION 

176. 

480 

X*D SORT (RADI U$*P2«Y( 1 1**2) 

177. 

570 

YY»-V(1) 

176.  C 

TRANSFORMING  FROM  ORIGINAL  TO  H0D1FIE0  RECT  COORO 

SYSTEM 

179. 

XXM0D*YY*HT2 

160. 

VMOOdWd) 
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lei.  2hoo«x 

162.  HR1TE(?,1)IGRI0,XXM00,YMC0U),2M00 

163.  00  575  1»2 .LAYERG 

184.  .  YMOOU )  »Z(  1 )  _  __  _ 

165.  WRITE (7,1) JGR10,XXM0D,YM06( I ) » ZMOO 

186.  JGR ID «JGR1 0*10000 

167.  575  C0NTINL2 

lee.  C  STORE  GRID  10 

169.  JCUR>JCUR+1 

190.  ....  1CUR( JCUR)»1GR1D  _ 

191.  C  INCREMENT  GRID  ID'S  ~  ' 

192.  1CRJ0«1GRI0*1  _  „ 

193.  JGR10» ICR ID* 10000 

194.  C  IF  THIS  IS  THE  FIRST  CINE  OF  CR10S,  DON'T  GENERATE  CONNECTIONS 

195.  !F(Vm.E0.0.0)G0  TO  530 

196.  C  CIO  HE  CROSS  A  LINE  OF.GRIOS?  _ 

197.  IF (X SAVE .NE. XL AST  ISO  TO  500  ‘  ' 

198.  C  HE  OION'T  CROSS  A  LINE  OF  GRIDS  SO 

199.  C  GENERATE  A  QUAD  ELEMENT 

200.  C  FIRST  SET  UP  THE  GRIO  ORDER 

201.  IC(1)>ICUR(JCUR) 

202.  .  ..  1G  ( 2 ) » 1  CUR ( JCURr 1 1 _ 

203.  IG(3)>LASTUCU.R*»1)  . 

204.  1G(4)«LAST (JCUR)  _ 

205.  1C(5)*1G(1)+10000 

206.  IG(6 )*IG(2 1+10000 

207.  1G (7 1 >16(31  +  10000 

208. ...  .  lG(8)*iG(4)+.lQOOO_ _ 

209.  JEL>1EL  . . . 

210.  •  JPS0L-1PS0L 

211.  DO  576  J>1, LAYERS 

212.  1F( J.EQ.DGO  TO  57E 

213.  JPSOL>JPSOL+10 

214.  .  JEL» JEL+10000  _ 

215.  00  577  K>1 .6  ‘  ~ . 

216.  IC(Kl>X6(K  1+10000 

217.  577  CONTINUE 

218.  C  PUNCH  CONNECTION  CARO 

219.  578  WRITE (7,2) JEL, JPSOL ,( IG( 1 ) , !>1 ,6) , 1C0NT 

220.  C  INCREMENT  CONTINUATION  FJEL0 

221.  JC0NT>1CQNT  .  .  . 

222.  1C0NT>IC0NT«1 

223.  C  PUNCH  CONTINUATION  OF  CONNECTION  CARD 

224.  WR1TE(7.3) JC0NT.1G(7) »1G(6) 

22 5.  576  CONTINUE 

226.  C  INCREMENT  .ELEMENT  JO  _  _ 

227.  1EL-1EL+1  ~  "  "  ”  " 

228.  GO  TO  530 

229.  C 

230.  C  NE  CROSSED  A  LINE  OF  CRH’S  50  WE  NEED  A  TRIANGULAR 

231.  C  ELEMENT  INSTEAO  OF  A  QUAD  ELEMENT 

232.  C  .  FIRST  SET  UP  THE  GRID  ORDER 

233.  500  16( 1 )>1CUR (JCUR»1 )  - - - - - 

234.  1G(2)>LAST ( JCUR— 1 1 

235.  IC(3)«ICUR(JCUR) 

236.  IG(4)«IG(1 J+10000 

237.  IG(5)»IC(2)+10000 

238.  IG(6)«1G(3)+10000 

239.  JEL+IEL  ~ "  '  - 

240.  JPSOL>IPSOL 

241.  00  505  4>1 .LAYERS 


242.  IF(J.EC.l)  CO  TO  SC? 

243.  JPS0l*JPS0L»10 

244 .  JEL«JEL*10000 

245.  CO  506  K«l,6  _ _ _ 

246.  1G(K)*1G(K>*10000 

247.  506  CONTINUE  ... 

248.  C  PUNCH  CONNECTION  CARO 

245.  507  NRlTE(7t4)JEL.JPS0L,UGm. 1*1.6)  .  . 

250.  4  FORHATdCPENTA  S8I8) 

251.  505  CONTINUE  ..  _ _ _ _ 

252.  C  INCREMENT  ELEMENT  10 

253.  IEL»IEL*1  .  ...  _  ..  .  .. 

254.  C  SAVE  LAST  X  AND  Y  VALUES 

255.  530  YLAST-YSAVE  .  . 

256.  XLAST-XSAVE 

257.  C  NON  MOVE  CURRENT  CRIOS..TO  LAST  GRIDS... 

258.  DO  510  1*1  .JCUR 

259.  LAST ( 1 1 ■ 1 C  UR ( 1 )  ... 

260.  510  CONTINUE 

261.  JLAST*JCUR  ... 

262.  C  RESET  CURRENT  CRIO  COUNTER 

263.  .  ...  -JCUR*0._  ..  _ _ 

264.  C  MOVE  UP  A  LINE 

265.  IFVANCLE.GT.P10N4)Y(1)>YSAVE 

266.  V(1)*Y(1>*0ELTY2 

267.  C  ARE  HE  AT  THE  TOP  OP  THE  CUTOUT? 

268.  !F(Y( 1) *LT .(RADIUS* TOLER ) ) CO  TO  430 

269.  C  .  .  START  GOING  .UP.  IN -THE.Yr.OlMCT ION  UNTIL.  NEJUT.JHE  TOP__ 

270.  C  START  AT  THE  LEFT  EDGE 

271.  Y(1)*Y(1)-DELTY2 

272.  GO  TO  475 

273.  420  X "WIDTH 

274.  C  GENERATE  NEXT  LINE  OP  GRID  POINTS 

275.  .  IEND-*0  _ .  . . 

276.  440  YY— YO> 

277.  C  TRANSPORHING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

278.  XXM0D-YY4HT2 

279.  VMOO(I)*ZU) 

280.  2M0D*X 

.281.  ...  .  WRITE  (7.1)  JGRID.XXM0D».Y.H0D.U).»2M0D _ _ 

282.  00  445  1*2»LAYERG 

283*  YMODt 1 )*Z( 1 ) 

284.  WRITE(7,l)JGRIO,XXMOD,YMOD(I).ZHOD 

285.  JCRID«JGRI 0*10000 

286.  445  CONTINUE 

287.  C  SAVE  GRID  IO*.S  FOR..ELEMENJ.  CONNECTIONS  _  . 

288.  JCUR* JCUR* l 

289.  1CUR ( JCUR )«I GRID  . 

290.  C  INCREMENT  GRID  10' S 

291.  1CRID«1CRI0*1 

292.  JGRiOMGRID+lOGdO 

293.  C  .  SEE  IP  THERE  .IS  A..P0INT_N1XT.T.0.  THIS  .ONE _ 

294.  IP  ( JCUR .CT.JL AST )C0  TO  452 

295.  C  MOVE  TO  THE  RIGHT  ONE  INCREMENT  AND  REPEAT 

296.  451  X»X-OELTAX 

297.  IP(X.CT .T0LER1G0  TO  440 

298.  C  MAKE  SURE  WE  GET  THE  RIGHT  EDGE 

299.  ...  IFdEND.EO.DCO  TO  450 . . . . 

300.  X«0.0 

301.  1END»1 

302.  GO  TO  440 
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If  j 


k  ' 


303. 

309. 

303. 

306. 

307. 
306. 

309. 

310. 

311. 
.312. 
313. 
319. 
319. 

316. 

317. 
316. 

319. 

320. 

321. 

322. 

323. 
329. 

325. 

326. 

327. 
326. 

329. 

330. 

331. 

332. 

333. 
339. 

335. 

336. 

337. 
336. 
339. 

390. 

391. 
392.. 
393. 
399. 

395. 

396. 

397. 
396. 
399. 

350. 

351. 

352. 

353. 
359. 

355. 

356. 

357. 
356. 

359. 

360. 

361. 

362. 

363. 


C 

C  GENERATE  ELEMENT  CONNECTIONS 
C 

.950.00  960  !»2  .JLAST _ _ _ _ 

C  FIRST  SET  UP  THE  CRIO  POINT  ORDER 

IGtll-lCUROl  .  . . 

1G(2)«ICUR(I“1 1 
1G(3)»LAST(1-1>  .  . 

1C  1 9  > "LAST (1 ) 

. iC{5)«lGU)*10.000. _ 

1G(6 ) SIG (2 1*10000 

IG(7)*IGI3)*10000  _ _ 

1G(6)*IG(9 1*10000 

JEL»IEL  . _. . .  . 

JPSOLMPSOL 

_ DO  955  .Ml  .LATER.S _ 


IF(K.EO.l)  GO  TO  957 

JEL«JEL*10000 . .  .  _.  _ 

JPSOL*JPSOL+10 

00  956  L«1 ,6  . _ _ _  ... 

IGU>-1C(L)*10000 

.  956.  CONTINUE,. _ 

C  PUNCH  CONNECTION  CARO 

957  WRITE(7,2)  JEL,  JPSCL.dGt  J).J*1*6}>1C0NT  ...» 

C  INCREMENT  CONTINUATION  FIELD  • 

JCQNT-1C0NT  .....  ...  .  ... 

1C0NT»1C0N191 

C  PUNCH  CONTINUATION  OF_CONNECdON  CARO _  _  _ 

WRITE  (7, 314C0NT.1C  17).  IG<8) 

2  FORMAT ( 'CHEXA  *,616, M  M7I  . 

3  FORMAT (•♦*.1 7.218) 

955  CONTINUE  . .  .  _  „. 

C  INCREMENT  ELEMENT  10 

.  ..  IEL»IEL*1 _ 

960  CONTINUE 

C  MOVE  CURRENT  LINE  OF  GRIDS  TO  LAST  LINE 
00  970  IM.JCUR 

LAST  ( 1 1MCUR  (1 1  . . . .  . 

970  CONTINUE 

..  ..  JLAST. JCUR _ _ _ _ 

C  MAKE  CURRENT  LINE  EMPTV 

JCUR-0  _ 

C  MOVE  UP  A  LINE 

975  vm»Y(ll'*0ELTY2 
C  HAVE  HE  HIT  THE  TOP  YET? 

IFt Y( 1 ) »LT .(H7 2-TQLER) )QO_TO  920 _  _ 

IF  t  IEN02.EG.DGO  TO  600 

1EN02*1 

Y(1)»HT2 

CO  TO  920 

C  IF  NE  DON’T  HAVE  A  POINT  NEXT  TO  THIS  ONE  PUT  ONE  ON  THE  CURVE 

952  YY«-0S0RT(RA01US*92-X**21  .  .  _ 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 
XXH0D«YY*HT2 
YM00<1I«2(1I 
2M0D*X 

WRITE (7,1!  1GR10.XXM0D. YMOD( 1 )«  2M0D 

DO  953  1  «2  .LAYERG  _  _  _  _ 

YM0D(I)«2U) 

WRITE (7,1! JGRIO«XXHOO,YMOD( I ) «  2 MOO 
JGR1D«JGR2D*10000 
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364.  453  CONTINUE 

365.  C  STORE  GRID  ID 

366.  JLAST*«ILAST*1 


367. 

368. 

369. 
370'. 

371. 

372. 

373. 

374. 

375. 

376. 

377. 

378. 

379. 

380. 

381. 
362. 

383. 

384. 

385. 

386. 

387. 

388. 

389. 

390. 

391. 

392. 

393. 

394. 

395. 

396. 

397. 
396. 

399. 

400. 

401. 

402. 

403. 

404. 

405. 

406. 

407. 

408. 

409. 

410. 

411. 

412. 

413. 

414. 

415. 

416. 

417. 

418. 

419. 

420. 

421. 

422. 

423. 

424. 


LAST(JLAST)«IGRID _  _  _ 

C  INCREMENT  GRID  10 
IGRID*1GRI0*1 
JGR I D*IGR! 0*10000 
GO  TO  451 

600  1CRI0»(ICRI0/1000*1)*1000*1 

. .  . JGR ID* IGRI 0*10000  _ _ _ 

IELMIEL/1 000*  1)61000*1 

XLAST-XX  _  _  _  . 

IEND2-0 

C 

C  * 

C  .  GENERATE. FIRST  f»lEff_«ITN„CUTOUT  IN  IT  _  _ 

C 

c 

c 

C  START  AT  THE  LOWER  LEFTHANO  CORNER 
C  THEN  HOVE  TO  THE  RIGHT  UNTIL  WE  HIT  THE  CUTOUT 

Y(1  )*OELTAY_ _ _  _  _  _ 

30  X-WIDTH  . 

C  GENERATE  FAR  LEFT  GRID  POINT 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 
XHOD 111 • V ( 1 ) *HT2 
YHOOm-Z(l) 

.  ..  ZMOO-X  .  _  _  _ 

WRITE (7. 1) 1GRI  D.XMCD  fl ) » YMOD (1 ).ZHOD  . .  ~  " 

00  95  1-2.LAYERC 
YM0D( 1 )*Z( 1 ) 

WRITE(7.1) JGRlO.XMQO(l) »YMOD(I ).ZHOD 
JGR ID ■JGR1 0*10000 

95  CONTINUE  ...  _ _ _  .  _ 

C  STORE  CR10  ID  . . 

JCUR«JCUR*1 
1CURI JCUR) *IGR 10 

C  IF  FIRST  LINE  OF  GR10S  PICK  UP  GRID  •  FOR  LAST  LINE 
1F( Y( 1) «EQ.DELTAY)LAST( JCUR)*MOD( IGR1D.1000) 

IF  ( Y  <1)  .EO  .DEL  TA  Y )  JLjkS.T*  JCLLR _ _ _ 

C  INCREMENT  GRID  10 

IGRI0»IGRI0*1 
JGR 10* 1CRI 0*10000 
C  MOVE  TO  THE  LEFT 

90  X«X-OELTAX 

C  SAVE  X  AND  V  _ 

XSAVE-X  '  "  * 

YSAVE«Y(i) 

C  ARE  WE  PAST  THE  45? 

ANGLE«0ATAN(Y(1)/X) 

1F( ANCLE. GT .P10N4)G0  TO  140 

C  BELOW  THE  45  __  _ 

C  FIND  DISTANCE"  FROM- CUTOUT  ~  . .  * 

IF( Y( 1 ).GT. RADIUS )G0  TO  150 
CIST»X-0S0RT(RAD1US662-YU>**2) 

C  ARE  WE  WITHIN  TOLERANCE  FROM  THE  CUTOUT 
IF (0 1ST .LE .TOLER) GO  TO  80 

GO  TO  150  _ _  _ 

C  ABOVE  THE  45  . .  “  . . . . 

140  IF (X.GT .RADIUS  )G0  TO  150 

0IST»Y(1)«0SCRT(RA0IUS**2-X662) 


I 
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*17  It&S 


*25.  IF(DIST.LE.TCLER)GC'TO  160 

*26.  C  NOT  AY  THE  CUTOUT  YET  SO  GENERATE  NORMAL  GRID  POINT 
*27.  C  TRANSFORMING  PRO.  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

*28,  150  XH00(1)*T(  1)*HT2  _ _ _ _ ... _ 

*2*.  YMODOWU) 

*30.  ZM00*X  . . . . . . . 

*31.  WRITE (7.1) 1GRID»XM0D( 1 ) . YM0D(1 )  .ZMOD 

*32.  00  155  1  >2  .LAYERS  ......  _  . . . . 

*33.  YN00U)*Z(I> 

*3*.  .  ..  WR I TE (7 .1 ) JGR 1 0*  XHOO  LU  jJTMQD.l  U.»2M00 _ _ 

*35.  4GR10»JGRIO*10000 

*36.  155  CONTINUE  ...  _ _ _ _ _  . 

*37.  C  STORE  GRID  10 

*38.  JCUR*JCUR*l  . 

*39.  ICUR( JCUR) *1GR ID 

**0.  C  IF  FIRST  LINE  OF  GR10S...PICK  UP, GRID  *  FOR  UST  LINC _ 

**1.  1F(Y(1 ) .EO .OELTAY ) LAST ( JCUR) *NCD(IGR ID .1000) 

**2.  IF  ( Y  ( 1 ) .EG .DEL TAY 1  JLAST* JCUR  .  .  .  _  .  .  _ .... 

**3.  C  INCREMENT  GRID  IO»S 

***.  IGRI0*IGRI0*1  .  ...  . 

**5.  JGR ID* 1GR1 0*10000 

**6.  C  ..  MAKE  SURE  ..Nl.  HAVE.  A  .PQ1NJ_NEX.T_T0  .TMIS.ONE _ _ 

**7.  IF( JCUR.GT .JLAST ) GO  70  180 

**6.  C  GENERATE  OUAO  ELEMENT  .  .  . .  .  .. 

**9.  C  FIRST  SET  UP  GRID  POINT  OROER 

*50.  190  1G(1)*LAST(JCUR)  _ _  .  . .  .. 

*51.  IG(2)*LAST (JCUR'l ) 

*52.  .  IG(3J*lCUR(JCUR-l). 

*53.  IG(*)*ICURCJCUR) 

*5*.  IG(5)*1G( 1 1*10000  . 

*55.  IC(6)»IG(2)*10000 

*56.  IGC7I»ICC3 !♦ 10  000 

*57.  1C(8J*IG(* 1*10000 

*58.  .  JEL*1EL  . . . 

*59.  JPS0L-1PS0L 

*60.  00  165  4*1 .LAYERS 

*61.  1F(4.E0.1)  GO  TO  167 

*62.  JEL*4EL*10000  .  .. 

*63.  JPSOL* JPSOL* 10 

*6*..  ...  00  .166  Ml  ,8.. _ 

*65.  1G(K)*16(K 1*10000 

*66.  166  CONTINUE  ...  . . 

*67.  C  PUNCH  CONNECTION  CARD 

*68.  167  WRITE(7,2)JEL. JPSOL. (!0<I). 1*1.6). ICONT 

*69.  C  INCREMENT  CONTINUATION  FIELD 

*70.  .  JCONT* ICONT  _ _ _ _ _ _ 

*71.  1C0NT*ICCNT*1 

*72.  C  PUNCH  CONTINUATION  OF  CONNECTION  CARO 

*73.  WRI TE ( 7.3 ) JCONT. 16(7) , !G(8) 

*7*.  165  CONTINUE  .  ...  _ 

*75.  C  INCREMENT  ELEMENT  10 

*76.  .  JEL*IEL*1.._ _ _ _ _ 

*77.  C  KEEP  GOING  TILL  ME  HIT  THE  CUTOUT 

*78.  GO  TO  90 

*79.  C  IF  NE  OON*T  HAVE  A  POINT  NEXT  TO  THIS  ONE  PUT  ONE  ON  THE  CURVE 
*80.  180  VV**0S0RT(RA01US**2-X«*2) 

*81.  C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

*82.  XXM00*YY*HT2.._ . . ...  _ _ 

*83.  YH00(1)*2(1) 

*6*.  ZMOD«X  ..  __ 

*85.  WRITE (7,1) IGRIO.XXMOO.YHOOt 1 ) .ZMOD 
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486  * 
487. 
466. 
469. 

490. 

491. 
492  i 

493. 

494. 
495*.. 
496. 

997 . 

998. 

499. 

500. 

501.. 

502. 

503. 

504. 

505. 

506. 

507.. . 

508. 

509. 

510. 

511. 

512. 

513.. 

514. 

515. 

516. 

517. 

518. 

519. 

520. 

521. 

522. 

523. 

524. 

525. 

526. 

527. 

528. 

529. 

530. 

531. 

532. 

533. 

534. 

535. 

536. 

537. 

538. 

539. 

540. 

541. 

542. 

543. 

544. 

545. 

546. 


00  185  I-2.LAYERG 
YM0D(t)*Z(lJ 

NR  I TE  ( 7  *  l ) JGR 1 0*  XXHOD  «  YNCO ( 1 1 »  ZMGD 

JCR10«JGRID*10000 _ _ 

185  CONTINUE 

C  STORE  GRID  10  „  .  _ .  _  . 

JLAST'JLAST^l 

LAST( JLAST )*1GRID  .  ... 

C  INCREMENT  GRID  10 

_ _ JGRlDxlGRlDtl _ 

JGR 10* 1GR1D4 10000 

60  TO  190  _ _ _ _ _ _ 

C 

C  ME»VE  HIT  THE  CUTOUT.  SO  GENERATE  .  . 

C  A  GRID  POINT  ON  THE  CURVE  OF  THE  CUTOUT 

C  .  ..  NE»RE  ABOVE  .TH£..45J_S0_MDVE_JN_JHE„Y?.DJRECTI0N. 

160  Y(1)*0SQRT(RADIUS**2-X**2) 

GO  TO  170.  .  .  .  . . 

C  ME 'RE  BELOW  THE  45  SO  MOVE  IN  THE  X-OIRECTION 
80  X*0$0RT(RA0IUS**2»Y( 1)**2) 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RcCT  COORD  SYSTEM 

.170  XM0D(l).*Ytl).tH12 _ 

YMOOm-ZU) 

ZMOD*X  . _..  .  . 

WRITE (7.1) 1GR1D. XMOD( 1) .YMODd l.ZMOO 

DO  175  1*2 .LAYERC  .  . 

YM00(I)*2(1) 

.  .  .  WRITE (7., l)JGR10.XM00.(Jl,.tM00.Cl.) i.ZMOD _ „ _ 

JCRID*JGRI 0*10000 

175  CONTINUE  . 

C  STORE  GRID  10 

JCUR-JCURM  .  _  .  ....... 

1CUR ( JCUR) *1GR ID 

C. _ IF  FIRST  L1NE.DF  GR10S._P.l«  .UP_6RI0.  #.  FOR  LAW.J.INE. 

IF ( Y ( 1 ) .EG .DEL TA Y I  LAST ( JCUR ) *M00( IGR 10  » 1000 1 

IF(Y(1).E0.0ELTAY)JLA5T*JCUR. _  .  .  ... 

INCREMENT  GRIO  ID’S 

1GR1D*1GR1D*1  _  ... 

JGR10*J6R1D* 10000 

C  ..  .  010  WE  CROSS_A  .HNE  .OF  MPlf. _ 

1F(XSAVE .NE. XL AST) GO  TO  100 
C  WE  DIDN'T  CROSS  A  LINE  OF  GRIDS  SO 
C  GENERATE  A  OUAO  ELEMENT 
C  FIRST  SET  UP  THE  GRIO  OROER 
!6( 1 )*LAST (JCUR) 

1G(2)«LAST(JCUR-1) _ _ _  ... 

IG(3)*1CUR(JCUR-1) 

1G(4)*1CUR(JCUR) 

1G(5)*1C(1 >*10000 
1G(6)*1G(2 )*10000 
IG( 7 )*1G (3)410000 

1G(8)*1G(4  1*10000 _ _ _ 

JEL'IEL 
JPS0L*1PS0L 
00  176  J*1 .LAYERS 
IF( J.EO.DGO  TO  176 
JPSOL*JPS0L*10 

JEL»JEL*10000.  .  _  _ _  _ _  _ 

00  177  K*l,8 
IG(K)*IG(K )♦ 10000 
177  CONTINUE 


547.  C  PUNCH  CONNECTION  CARO 

548.  178  WRITE(7»2) JEL»  JPSOL»(IC( I) .1*1 .6) . 1CONT 

549.  C  INCREMENT  CONTINUATION  FIELD 

550.  JC0NT-1C0NT _ _ _ _ 

551.  IC0NT»1C0NT*1 

552.  C  PUNCH  CONTINUATION  OF  CONNECTION  CARO 

555.  NRITEI7»3)«JC0NT»IGf?)»I6(8) 

554.  176  CONTINUE  _  „  .  .  . 

555.  C  INCREMENT  ELEMENT  10 

556 . IEL*IEL*1. _ _ _ 

557.  60  TO  130 

558.  C  .  .  .  .  .  _ 

559.  C  ME  CROSSED  A  LINE  OF  GRIDS  SO  ME  NEED  A  TRIANGULAR 

560.  C  ELEMENT  INSTEAO  OF  A  OUAD  ELEMENT 

561.  C  FIRST  SET  UP  THE  GRID  ORDER 

562.  100  IGm»LA$T(JCURrl> _ _ _ _ _  _ 

563.  1C(2J*ICUR(JCUR*1) 

564.  1G(3)*1CUR(«ICUR)  .  _  _  _ 

565.  IG(4)*IC(1 )*10000 

566*  16(5)>16(2)410000  ... 

567.  1G(6)*IG<3)*10000 

568.  .  JEL'IEL  _ .  _ _ 

569.  JPSOL*IPSOL 

570.  CO  105  J*1 .LAYERS  ........ 

571.  IFU.EO.l)  CO  TO  107 

572.  JPS0L*JPS0L*10 

573.  JELaJEL+10000 

574.  .  DO  106  K*l,6 _ _ _ _ 

575.  1C(K)«1C(K)«10900 

576.  106  CONTINUE 

577.  C  PUNCH  CONNECTION  CARO 

578.  107  NR1TE(7.4) JEL. JPSOL.1 1G( 1) .1*1 .6) 

579.  105  CONTINUE 

580.  C  INCREMENT  ELEMENLJO. _ _ _ 

581.  1EL*1EL«1 

582.  C  SAVE  LAST  X  AND  V  VALUES  .. 

583.  130  YLAST*VSAVE 

584.  XLAST-XSAVE 

585.  C  NOM  MOVE  CURRENT  GRIDS  TO  LAST  GRIDS 

586*  ...  DO  U0.I»i.JCUR _ _ 

587.  LASTI1 )*ICUR(I ) 

588.  110  CONTINUE  _  . 

589.  JLAST*JCUR 

590.  C  RESET  CURRENT  GRID  COUNTER 

591 .  JCUR-C 

592.  C  MOVE  UP  A  LINE  _ _  _ _ _ 

593.  IF( ANGLE .GT. PI 0N4)V(1)*YSAVE 

594.  Y<1J«Y(1)*0ELTAY 

595.  C  ARE  ME  AT  THE  TOP  OF  THE  CUTOUT? 

596.  1F(V(1).LT.(RA01US«T0LER))G0  TO  30 

597.  C  START  GOING  UP  IN  THE  Y-OIRECTION  UNTIL  ME  HIT  THE  TOP 

598.  C  START  AT  THE  LEFT  EOG| _ _  _  _  _ 

599.  Ya)*Yll)-OELTAY  " 

600.  CO  TO  75 

601.  20  X*MIOTH 

602.  C  GENERATE  NEXT  LINE  OF  GRID  POINTS 

603.  IEN0*0 

604.  C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORO  SYSTEM _ 

605.  40  XMOO(1)*YU|4HT2  " 

606.  YMOD(l)*Zm 

60..  2M00*X 
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608.  NRITE(7,11IGR1D,XMOD<11.YMOOC1 1.ZM0D 

609.  CO  65  1*2  .LAYERG 

610.  YMOO( I )*2(  1 1 

611.  . WRITE (7.1)  JGRID.XMODdJ .YMODll) .ZMQD  .  . 

612.  JGR ID* JGRI 0*10000 

613.  65  CONTINUE  .  ..  . . 

616.  C  SAVE  GR10  ID'S  FOR  ELEMENT  CONNECTIONS 

615.  JCUR* JCUR* 1  .  .. 

616.  ICUR ( JCUR) *IGR 10 

617.  C  . . iNCREMENT  .CRJD  .1011 _ 

616.  IGR1D*IGRID*1 

619.  «.'GR1D*1GRID*  1.0000 .  ..  „  .  . 

620.  C  SEE  IF  THERE  IS  A  POINT  NEXT  TO  THIS  ONE 

621.  IF  I JCUR . G  T .  JL  AST  1  GO  TO  52 

622.  C  WOVE  TO  THE  RIGHT  ONE  INCREMENT  AND  REPEAT 

623.  51  X*X-DELTAX  _ _ _ _ _ _ _ _  . 

626.  1FIX.GT .TOLER) GO  TO  60 

625.  C  MAKE  SURE  WE  GET  THE  RIGHT  EDGE  .  .  . 

626.  lFdENC.E6.DG0  TO  50 

627.  X*0.0  .... 

628.  1EN0*1 

629.  ..  .  .  GO  .10  60 _ _ 

630.  C 

631.  C  GENERATE  ELEMENT  CONNECTIONS  _  . 

632.  C 

633.  50  00  60  I*2.JLAST 

636.  C  FIRST  SET  UP  THE  GRID  POINT  ORDER 

635.  .  .  .  1C<1)*LAST(IJ_. : _ _ _ 

636.  )G<2)*LASTd-l) 

637.  IG<3)*ICURd-D  _ 

638.  IC(6)*lCUfM!> 

639.  •  1G(5)*1G(I 1*10000  . 

660.  16(6)*1G(2 1*10000 

661..  .  1G(  7)  *16(31*10000 _ _ _ _ 

662.  IG(8I*1G(6 1*10000 

663.  JEL*IEL 

666.  JPSQL-IPSOL 

665.  DO  55  Ml* LAYERS 

666.  IFtK.EO.l)  GO  TO  57 

667..  . JEL*JEL*10000 _ 

660.  JPSOL*JPSOL*10 

669.  DO  56  L*l*8 

650.  1CU)«1C<L)«I0000 

651.  56  CONTINUE 

652.  C  PUNCH  CONNECTION  CARD 

653.  57  WRITE (7.2 1JEI.JP SOI idG(J}.J*l  ,6) .1C0NT _ 

656,  C  INCREMENT  CONTINUATION  FIElO 

655.  JCONT*lCONT  .... 

656.  IC0NT»1C0NT*1 

657.  C  PUNCH  CONTINUATION  OF  CONNECTION  CARO 

658.  WRITE(7,3UC0NT.1G(71,1G(81 

659.  ...55  CONTINUE  ..  _ 

660.  C  INCREMENT  ELEMENT  ID 

661.  1EL*IEL*1 

662.  60  CONTINUE 

663.  C  WOVE  CURRENT  LINE  OF  GRIDS  TO  LAST  LINE 

66* .  DO  70  1*1. JCUR 

665.  LASTdl-lCUR.U.l. _ 

666.  70  CONTINUE 

667.  JL A ST* JCUR 

668.  C  MAKE  CURRENT  LINE  EMPTY 
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669.  0CUR»0 

670.  C  MOVE  UP  A  LINE 

671.  75  7(1 )»Y(l)*DELTAY 

672.  C  .  HAVE  HE  HIT.  THE  .T0P...YET? _ _ 

673.  IF(Y( 1) *LT .( LEG* i-TOLER )  ICO  TO  20 

67A,  IF(  JEN02.E6.DOO  TO  200 . 

675.  1EN02*I 

676.  Y(  1  )SLECX1  ....  . . 

677.  GO  TO  20 

678.  C _ IF.  HE.  DON T .  HA  VE  . *_P.O I WJNEXL  Jfl_THIS_.ONF.  JP.UT.  CN£ ..ON  JM_CU?VE 

679.  52  VY*«0SQRT(RA01USM2-XM2) 

680.  C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECJ  COORD  SYSTEM  „ 

681.  XXN0D>VV«HT2 

682.  YMOOU)*2(n  .  _ _  _ _  _ _ _ 

683.  2M0D»X 

664 . _ HRITE.(7*l)ICRID*.XX,H00jlM0PJUUJl!Jt0. _ 

685.  00  53  W.LAYERG 

686.  VH00m*2tI)  . . .  . . 

687.  HR!TE(7«I) JGRIO.XXMOO.YHObd )«2H0D 

686.  .  JCRI0«JGRI04 10000  _ _  ..  .. 

689.  S3  CONTINUE 

690.  C _ $T0RE_GRID..IJD _ 

691.  JLAST»JLAST*1 

692.  LAST! JLAST)>1CR10 _ _  _  .  __ 

693.  C  INCREMENT  GRID  ID 

694.  IGRID*1GR1D*1  .  . .  _ . .  . 

695.  JGRIOMCRIOOOOOO 

696.  . . GO.TO.5l _ _ _ 

697.  C 

698.  C  _ ... 

699.  C  END  OF  FIRST  PIECE 

700.  C  .  . . .  .  .  _ _ _ 

701.  C 

703 •'  C  GENERATE ”ThF90^0ECREEH56 

T04.  C  .  . 

705.  C  FIRST  ESTA8LISM  A  CYLINDRICAL  CO-ORDINATE  SYSTEM 

706.  200  X*0.0  . .  . .  . . 

707.  LEGX"HT2«LEGX1 

708*.  .  LECXPI'LEGXjtl, _ _ _ 


709.  LEGY*LEGY 

710.  WRITE! 7.20 11LEGX .LEGV.LEGX.LEGY .lCO^T 

711.  201  FORMAT! 'C0RD2C  • ,5X , ‘IOC .8X.2F8.4 ,5X.»0.0* .2F8.4.5X . M .!)♦• , 

712.  *17) 

713.  JC0NT»1C0NT 

714.  IC0NT-IC0NT41  _ _  _ 

715.  WRITE (7,202! JCONT .LEGXP 1 »LECV 

716.  202  FORMATP  +  Sn^O.A.SX.'O.O'! 

717.  C  SET  INITIAL  VALUES 

718.  1PS0L-1PS0LM 

719.  R!1)>REND 


720.  .  00  205  I f2  .LAYERS _ _ _ _ 

721.  R(I!<R(1>1!«T!I-1! 

722.  205  CONTINUE 

723.  THETA«DELTA'? 

724.  IEL*((1EL/ 10001*1 I *1000*1 

725.  1EN02-0 

726.  250  1END*0  _  _  _ _ 

727.  Zlll-C.O  . .  . . . 

T<:9.  C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  CYLINDRICAL  COORD  SYSTEM 
729.  220  THM00«90.-THETA 
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730.  ZH002(1)»N10TH-Zd) 

731.  WRITE  (7,2Q3MGR!D,  Ml)  .THH0D.ZH0D2d) 

732.  203  FORM AT ('GRID  ' . J8.5X  * ' 100  •*  3F8.6 I 

733.  . 00  225  !.*2  »LAVERG . . . . 

736 .  WRITE (7«£03) JGRIO»R( I ) .THH0D.ZH002 ( 1) 

735.  ._JCRIO*JCRID*10000 

736.  225  CONTINUE 

737.  JCUR'JCURd  _  . 

738.  JCUR ( JCUR 1 *1 GR ID 

739.  . ICRID-lGRIO.d _ _ 

JGR I 0*1 GRID* 10 000 

Zd)»Zdl*OELTAX  .  .  . 

IFtZdl.LT . (WI 0TH-70LER ) )G0  TO  220 
WAKE  SURE  WE  GET  THE  EDGE  .  ... 

imEND.EO.nCO  TO  210 

Ztil-WIOTH  .  _ 

1EN0*1 

CO  TO  220  .  „ 

GENERATE  CONNECTIONS 
769.  210  DO  230  I *2 .JCUR 

750.  C  SET  UR  THE  CR10  R01NT  ORDER 

751.  ICdl'LASTU) _ 

752.  ICm*LASTd-ll 

753.  lC(3»*lCURd-l) . .  . 

756.  1C (6 ) » 1 CUR ( I ) 

755.  lG(5l»IC(lldOOOC 

756.  1C(6)*1C(2)«10000 

757.  lG<7)*!G<31.rlOOOO _ 

758.  icm*ic(6i«ioooo 

759.  JEL-1EL 

760.  JPS0L-1PS0L 

761.  00  215  MS. LAVERS 

762.  IFOUEO.llCO  TO  217 

763.  JEfJEL-10000 _ 

766.  JPSOL* JPSOL* 10 

765.  CO  216  L*l.8  ... 

766.  lCU)*lG<L>dOOOO 

767.  216  CONTINUE 

768.  C  PUNCH  CONNECTION  CARO 

769.  217  WR1TEC7.21JEL. JPSOL. dC(Jb.»*l,6»dC0WT _ 

77C.  C  1NCREHENT  CONTINUATION 

771.  JCONTMCONT 

772.  ICONT«lCONTd 

773.  C  PUNCH  CONTINUATION  OP  CONNECTION  CARO 

776.  WR1TE(7.3)UC0NT,IC(7).IC(8) 

775.  215  CONTINUE  .  / _ _ 

776.  C  1NCREHENT  ELEMENT  10 

777.  1EL»1EL*1 

778.  230  CONTINUE 

779.  C  WOVE  CURRENT  CR10S  TO  LAST  GRIOS 

780.  00  260  1*1 .JCUR 

781.  LASTdl-lCURd.l _ 

782.  260  CONTINUE 

783.  JL AST* JCUR 

786.  JCUR*0 

785.  C  INCREMENT  ANCLE 

786.  THETA»THETA*OELTAT 

787.  IF(THETA.LT.89.99995)G0_T0  250 

788.  lFdEN02.E0.llC0  TO  261 

789.  1END2*1 

790.  THETA-90. 


760. 

761. 

762. 

763.  C 
766. 

765. 

766. 

767. 

768.  C 
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END  OF  90  DECREE  BEND 


792. 

793. 
799  . 

795. 

796. 

797. 

798. 

799. 

800. 
801. 
802. 
803. 
809. 

805. 

806. 

807. 

808. 

809. 

810. 
811. 
812. 
813. 
819. 

815. 

816. 

817. 

818. 

819. 

820. 
821. 
822. 
823. 
829. 

825. 

826. 

827. 

828. 
829. 
830.. 

831. 

832. 

833. 
839. 

835. 

836. 

837. 

838. 

839. 

890. 

891. 

892. 
693. 
899. 

895. 

896. 

897. 
896. 
899. 


C  START  OF  BOTTOM  PIECE(NC  CUTOUT) 

C  . 

C 

C  INITIALIZE.  CONSTANTS _ 

291  IEL* ( ( I EL/ 1000 )+l ) *1000+1 

IEN02-0  _  .  _ 

IPSOLMPSOL+1 
7(1)  *LEGX1+BEND 
DO  295  I»2»LAYERG 

.  Y(I)*Y<1-1)+T(1-.1)_ _ 

295  CONTINUE 

C  START  GOING  OONN  IN  THE  2-DIRECTION  UNTIL  HE  HIT  THE  60TT0H 
C  START  AT  THE  LEFT  EOGE 

2(1  )*LEGY»DELTAZ 
320  X-HIDTH 

C  ..  GENERATE  NEXJ..LINE  UF..C.R.IB..P0.1N.T..S. _ _ __ 

1END«0 

c  transforming  from  original  to  modified  rect  cooro  system 

390  XM0D(1)-Y(1)+HT2 

YM00(1)*2(1) . 

2M0D*X 

WRITE (7. 1)  IGRIDt XMOO(.1).»JMDO (.)..) »ZM00 _ _ _  ... 

00  395  1 >2 .LAY ERG 
XMOD ( 1 )«Y( I )+HT2 

WR1TE(7.1) JGRIO.XMOO(I) «YM00(1 )  .ZMOO 
JGR 10 *JGR 1 0+10000 
395  CONTINUE 

C  .SAVE  GRID  10*S.F0R_ELENEKT„C0NNECT10NS _ _ __ 

JCUR»JCUR+1 

1CUR ( JCUR ) • 1 GR ID  . 

C  INCREMENT  GRID  10* S 

IGRIO-lGRIO+1  .  ... 

JGR 10* 1GR10+ 10000 

C  .  MOVE  TO  THE  RIGHT  _PNE.  INCREMENT  AND  .REPEAT _ 

X»X-OELTAX 

1F(X.GT»T0LER)G0  TO  390 
C  MAKE  SURE  HE  GET  THE  RIGHT  EOGE 
1F( IEND.E0.1 )G0  TO  350  . 

X*Q.O 

IEND*1  .  .  _ _ _ _ _  __ 

GO  TO  390 
C 

C  GENERATE  ELEMENT  CONNECTIONS 
C 

350  00  360  I *2 .JLAST 

C  .  FIRST  SET  UP  THE.  CRIO  POINT_ORDER  _  _ 

IC( 1 )*LAST ( I ) 

IG ( 2 ) *LAST ( I —1 ) 

IG(3)»ICUR(I-1) 

IG  1 9 )  « 1  CUR  ( I ) 

!G(5)*!G(1 1+10000 

.  1G(6)*IG(2)  + 10000 _ _ 

1G(7)*1G(3)+10000 


850.  IG(8)«IG(9)+10000 

851.  JEL*IEL 


852.  JPS0L«1PS0L 

853.  00  355  K«1 .LAVERS 

854.  IF(K.E0.1)G0  TO  357 

855.  JEL*JEL*1000C _ _ _  _ _  _  _ _ 

856.  JPS0L*JPS0L-*10 

857.  00  356  L*l»8  ...  . 

858.  1GU)«IC<U*10000 

859.  356  CONTINUE  _  ..  ....  .  _. 

860.  C  PUNCH  CONNECTION  CARO 

861.  .  _.35.7  WRI  T£ (7,2 ) JEL,  JRSOL.j.I.GJ  JL  J?1  j6  J.,  I  CON.T _ 

862.  C  INCREMENT  CONTINUATION  PIELO 

863.  JCONT*ICONT  _  _  .  _  _  .  _ 

864.  1C0NT>1C0NT*1 

865.  C  PUNCH  CONTINUATION  OF  CONNECTION  CARO  ... 

866.  MR  ITE(7»3)  JC0NT»IC(?)»IC(8) 

867..  .355  CONTINUE _ _ 

868.  C  INCREHENT  ELEHENT  ID 

869.  IEI-1EU1  ........  . . 

870.  360  CONTINUE 

871.  C  HOVE  CURRENT  LINE  OF  GRIDS  TO  LAST  LINE  ... 

872.  00  370  1M.JCUR 

873.  . LAST  ( I )  ■JCURJ I  J _ _ 

874.  370  CONTINUE 

875.  JLAST-JCUR  _  _ 

876.  C  HAKE  CURRENT  LINE  SHPTY 

877.  JCUR«0  .  .  . 

878.  C  HOVE  UP  A  LINE 

879..  2tl)«2<l)rOEL.TA2.  _ _ _ 

880.  C  HAVE  ME  HIT  THE  BOTTOM  VET? 

881.  IFUdl.CT.TOLERieO  TO  320 

882.  IF  1 IENG2.E0.UG0  TO  120 

883.  IEND2-1  _ 

884.  Z(l>-0.0 

885.  .  .  CO  TP  320 _ 

886.  C  MERE  DONE  WHEN 

887.  C  SO  OUMP  THE  BUFFER _ _  . 

888.  120  ENDFILE  7 

889.  C  AND  GET  THE  HEU  OUT 

890.  STOP 

891.  900  MR ITE  16,9011 _ _ _ _ _ 

892.  901  FORMAT < •-•••ERROR***  TOO  MANY  LAYERS  SPECIFIED') 

893.  STOP 


894. 

895. 

896. 

897. 

898. 

899. 

900. 

901. 

902. 


END 

//G0.FT07F001  00  DSN*CN900004.SSS.Ci8BLKXF.UNlT»HVLBUR.DISP*(,CATLG),,l 
//  SPACE* ( TR< , ( 10, 10) ,RLSE ) »OCP* (RECFH»FB»LRECL*80»BLKSIZE*3120 )  Ijcl 

//G0.5YS1N  00  *  __  .  _ J _ 

CPARAMS  LEGX1«0.27,LEGY*0.51,N107H*0.5,RADIU5*0.25,DELTAY»0.09,^ 


0ELTAX*0.1 .TOLER *0.0 15, DEL TAT *15.0, 8EN0*0. 125, 
T(l)*0.125, 

0ELTA2*0.17,L AYERS* 1 ,0ELTY2*0. 1330 ,HT2 *0.4 


INPUT 

DATA 


(ALSO  SEE  FIGURE  B-13) 
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C-J.  PREPROCESSOR  FLOWCHART 
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C-l  PREPROCESSOR 
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SETUP  CHEX 
CARDS  ORDER 
BASED  ON  I 


OUTPUT CHEX 
CARDS  FOR 
ADD  LAVERS  J 


INCREMENT 
ELEMENT  ID; 


INCREMENT  I 


I  >  END  OF  LINE] 


MAKE  CURRENT 
LINE  OF  GRIDS 
LAST  LINE  OF 
GRIDS 


Z  *>  ZDELTAZ 


Cr-1  PREPROCESSOR 


Z>  TOLER 


IEND2  "  1 


IEND2  *  1 
Z  »  0 


CLOSE  OUTPUT 
FILE 


END  Cl 


OUTPUT 

ERROR 

MESSAGE 


END  Cl 


APPENDIX  E 


C-i  MODEL  PREPROCESSOR  PROGRAM  OUTPUT 


LEVEL  21. 8  (  JUN  7A  ) 


0S/360  FORTRAN  H 


COMP 

1SN  0002' 
1SN  0003 


JSN  000A 


1SN  0005 
1SN  0006 
ISN  0007 
1SN  0006 
ISN  0009 


1LER  OPTIONS  -  NAME*  MA1N,0PT*01,L1NECNT*56,S1ZE*0000K, 

SOURCE, EBCDIC.NOLIST, NOOECK, LOAD. HAP, N0E0IT,N0ID»XREF 
DIMENSION  LAST! 1000 ) tICUR (1000) ,16 <8 1 

REAL*6  LEGX1 »LEGY ,W1DTH .RADIUS  , CELT  AT  ,  DEL  TAX  ,T  (26  ), TOLER,  X*Y  (26) 
•PIQNA ,XSA VE , YSAVE , ANCLE ,0  I  ST , XL AST ,YLAST .OELTAT, YY,XX .DELTY2, 
•BEND, THETA, 2(26) »DELTAZ»R(26) ,HT2,XM001,XXM00»XMOD<26) , 

*YMOD( 26 ) »  2M00  *2M0D2 (26 ) »THMOD,LEGX tLECXPl ,LECY 

.  .  ..  NAMELIST  /PARAMS/-.UECX1.LECY,  WIDTH,  RADIUS,  CELT  AX,  DEUi.UU _ 

•TOLER .OELTAT, BEND, 0ELTA2, LAYERS, 

.  *DELTY2»HT2  .  .  .. 

DATA  10R1D/1/  »JGR ID/ 10001 / »ICONT /O/, JCUR/O/, JLAST/O/, IEL/1/  - 
DATA  LECX1.LECY ,H 1 DTH, R AD 1US, DEL TAX, OELT AY, TOLER/ 7*0.0/ 

OATA  T/26*0 .0/ 

.  ...  DATA  DELT  AT  j6ENO/2*0,0/,OELTAZ/0,0/,  LAYER  S/0/ ,0E.LTY2/C«0/ 

DATA  HT 2/0.0/ 

C  .  .  _ 

C 

c 
c 
c 
c 


ISN  0010 
ISN  0011 

ISN  0013 

ISN  001 A 


ISN  0015 
ISN  0016 
ISN  0017 
ISN  0018 
ISN  0019 
ISN  0020 

ISN  0022 
ISN  0023 
ISN  002 A 
ISN  0025 
ISN  0026 
JSN  0027 
ISN  0028 
ISN  0029 


THIS  PROCM  IS  FOR  GENERATING  BULK  DATA  FOR  THE  FULL  BRACKET 
AND  IS  CALLED  PRE-PROCESSOR  FOR  Cl  MODEL 


REAO  IN  PARAMETERS 
REA0(5,PARAMS )  .  . 

IF (LAYERS ,EG ,0) LAYERS* 1 
C  ECHO  PARAMETERS 

WRITE (6, 8!LECX1,LEGY,N!0TH,RAD!US.DFLTAY,DELTAX, OELTAT, BEND. 

.  •TOLER.DELTAZ  ,LAYERSjDELTY2,Hf2  _  .  _ _ _ _  _ 

8  FORMAT! ^PARAMETER  ECHO'./.’OLEGXl*  ' ,T13,F8 .A ,/ , 

*'  LEGY*  ' ,T13 ,F8»A ,/, •  WIDTH*  *, 

•T13.F8.A/,*  RADIUS*  1 ,T13  ,F8,A »/»•  DELTA-Y*  ST13.F6.A  ,/, 

•  •  OELTA-X*  • , T13.F6  .A  »/, '  DELTA-T*  • .T13.F8.A  ,/•  BEND* • ,T1 3,F8, 
•,/,•  TOLERANCE*  *,FO.A,/,*  DELTA-2** ,Tl3, 

-  .  •Fe.A,/.*  LAYERS* *jT.I3, 18,/,.*  0ELTAY2«*,T13,F8.A,/.,*.>tE!GMT2«' , 
•T13.F8.A) 

DO  998  1*1«LAYERS 
WRITE  (6,997 )  I, TUI 

997  FORMAT (  •  UYER-M2,*  THICKNESS*' ,F8.A) 

998  CONTINUE 

.1  FORMAT!  'GRID _ I6,8X.3F6.A>  _  . 

IF (LAYERS «GT .25) GO  TO  900 
C  INITIALIZE  CONSTANTS 
LAYERG*LAYERS+1 
2 ( 1  )»LECY*6EN0 
DO  35  I *2 (LAYERG 

2(1  )»Z(  I-l)*T.(l-.l) . __ . 

35  CONTINUE 
IENC2*0 

PI0NA*3.1 A159/A. 

IPS0L*1 


C 

C„ 

C 

C 

C 

C 


GENERATE  PIECE  BEFORE  FIRST  P1ECE(H00EL  CHANGE  5/6/76) 


C  START  AT  THE  LOWER  LEFTHAND  CORNER 

C  THEN  HOVE  TO  THE_R ICHT  UNTIL  WE  HIT  THE  CUTOUT  _ 

ISN  0030  Y<1>«0.0 

ISN  0031  430  X-WIDTH  .  . 

C  GENERATE  FAR  LEFT  GRID  POINT 

ISN  0032  yy»*Y(ii  . 

C  TRANSFORMING  FROM  ORIGINAL  TO  M001FIE0  RECT  COORO  SYSTEM 

ISN  0033.  _ XXM00.iYI.4HT2 _ 

ISN  0034  YMODUWU) 

ISN  0035  ZMOO«X  .  .  .  . . ..  . 

ISN  0036  WRITE (7»1)IGR 10 •XXHQOfYMOD(l) tZMOD 

ISN  0037  00  495  I»2,LAYERG  .  ...  .  .  ...  . 

ISN  0038  YM00m>Z(l) 

ISN  0039  _  _ WRITE(7,1.)JGR.1D*XX^PP»1MODU),ZMOO _ 

ISN  0040  JGRIO«JGRIO+10000 

ISN  0041  495  CONTINUE  .  .  __ 

C  STORE  GRID  ID 

ISN  0042  ilCUR*«ICUR4l 

ISN  0043  I CUR (JC UR ) » I GRID 

...  C _ INCREMENT  .GRI  C_JO _ 

ISN  0044  1CR10»1CR1041 

ISN  0045  JCR10«ICR1D410000  .  ... 

C  MOVE  TO  THE  LEFT 

ISN  0046  490  X>X-0EL1AX  _  . 

C  SAVE  X  ANO  Y 

.ISN  0047 . XSAVE*X _ _ 

ISN  0048  Y5AVE»YO  ) 

ISN  0049  IF(Y<1).EQ.0.0)XX»X  ...  .  .. 

C  ARE  WE  PAST  THE  457 

ISN  0051  ANGLE »D AT AN( Y ( 1 )/X )  .  . 

ISN  0052  IF ( ANGLE »GT tP 10N4 )G0  TO  540 

. .  .  ..C  .....  BELOW  THE  .45 _ 

C  FIND  DISTANCE  FROM  CUTOUT 

ISN  0054  IF ( Y( 1 ) .GT .RADIUS ) GO  TO  550  ...  .  _  . 

ISN  0056  DIST«X-DS0RT(RAD1US4*2-Y(1)P62) 

C  ARE  WE  WITHIN  TOLERANCE  FROM  THE  CUTOUT  . 

ISN  0057  1F(01ST«LE.T0LER)G0  TO  480 

ISN.  0059  _ 60  TO .550 _ _ 

C  ABOVE  THE  45 

ISN  0060  540  IFU.GT.RAOIUSIGO  TO  550  .... 

ISN  0062  0! ST« V( 1 1 •OSORT (RA01US**2 »X**2 1 

ISN  0063  IFIOIST.LE'TCLERIGO  TO  560 

C  NOT  AT  THE  CUTOUT  YET  SO  GENERATE  NORMAL  GRID  POINT 

ISN  0065  550  YY«-YU)  _ _  _ 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 
ISN  0066  XXM0D«YY*HT2 

ISN  0067  YHQDUWU) 

ISN  0068  2M0D*X 

ISN  0069  WRITE (7*1 JlGRID*XXNOD*YMOOCil tZMOD 

ISN  0070  .  00  555  I«2,LAYERG _ _  _ _ 

ISN  0071  YM0Dm*ZU> 

ISN  0072  WRITE (7 1 JGR 10«XXMOO>YMUDt! I »ZMQD 

ISN  0073  JCRID«gGR  ID^IOOOO 

ISN  0074  555  CONTINUE 


it,  . 


.5 


C  STORE  GRID  10 

ISN  0075  ..  .  JCUR*  JCUR  *1.  . _ _ _ _  _ 

1SN  0076  1CUR( JCUR )*1CRID 

C  INCREMENT  GRID  ID'S  . 

ISN  0077  lCRI0*ICR104l 

ISN  0078  JGR1D*I GR ID* 10000 

C  If  THIS  IS  THE  FIRST  LINE  OF  GRIDS,  DON’T  GENERATE  CONNECTIONS 

ISN  0079  ...  .  .  1FIY(1).#EO«0»C).GO..TO.  690 _  _ _ _  _ _ _ _ 

C  HAKE  SURE  HE  HAVE  A  POINT  NEXT  TO  THIS  ONE 

ISN  0081  IF  (JCUR  ,GT»JlAST)GO  TO  580  . . 

C  GENERATE  QUAD  ELEMENT 

C  FIRST  SET  UP  GRIO  POINT  OROER  .  .  . 

ISN  0083  590  1G(1)»ICUR( JCUR) 

ISN  0084  1C(2)«ICUR(JCUR-1) _ _ _ _  „  .  ... _ 

ISN  0085  lf.m«LAST(JCUR-l  J 

ISN  0066  1G(4)«LA5T( JCUR) 

ISN  0087  1G(5)*IG( 1)410000 

ISN  0086  1G(6)*IG(2)*10000 

ISN  0089  lCm«!0<3)+10000 

ISN  0090  IG(B)*IGU)4I0000  _ _ _ _ _ 

ISN  0091  JEL*IEl 

ISN  0092  JPSOL«IPSOL  _  . 

ISN  0093  00  565  J» 1, LAYERS 

ISN  0094  lF(J.EO.l)  CO  TO  567 

ISN  0096  JEL-JEL410000 

ISN  0097  .  ,  .  JPS0L*JP$0L*10 _ _ _  _  ...  .  _  _ 

ISN  0098  00  566  K>1, 8 

ISN  0099  1G(K)«IG(K)410000  .  .  . 

ISN  0100  566  CONTINUE 

C  PUNCH  CONNECTION  CARO 

ISN  0101  567  WR1TE(7,2)JEL,JPS0L,UG(1  >,1*1,6), 1C0NT 

C  INCREMENT  CONTINUATION  FIELD . . . 

ISN  0102  JC0NT*1CQNT 

ISN  0103  1C0NT*IC0NT«1 

C  PUNCH  CONTINUATION  OF  CONNECTION  CARD 
ISN  0104  WRITE (7 ,3 ) JCONT ,1G(7),1G(8) 

ISN  0105  565  CONTINUE 

C  .  INCREMENT.  ELEMENT  10 _ _ _  ..  _ 

ISN  0106  IEL»1EL*1 

C  KEEP  GOING  TILL  HE  HIT  THE  CUTOUT 
ISN  0107  CO  TO  490 

C  IF  ME  DON’T  HAVE  A  POINT  NEXT  TO  THIS  ONE  PUT  ONE  ON  THE  CURVE 
ISN  0108  580  YY*-OSORT(RAOIUS«2-XM2) 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORO  SYSTEM 
ISN  0109  XXM0D»YY*HT2 

ISN  0110  YNOO( 1 ) *2 (1 ) 

ISN  0111  IMOO*X 

ISN  0112  HRITE(7,1 HCR  IO*XXHOO»YNOO( 1 ) ,2MOO 

ISN  0113  DO  585  1*2,LAYERG 

ISN  0114  YMOOUW(l)  .  _ _ _ 

ISN  0115  HRITE(7,1 )JGf 1J,XXMOD,YMOO(I),2MOD 

ISN  0116  JGRID»JGR 10*10000 

ISN  0117  585  CONTINUE 

C  STORE  GRIO  ID 


*XS*  w  I 


i 

* 

t 

? 


ISN 

0118 

JLAST*JLAST*1 

ISN 

0119  . 

.  LAST( JL AST)* I GRID  _ 

C 

INCREHENT  GRIO  ID 

ISN 

0120 

IGRID*1GR 10*1 

ISN 

0121 

JGRIO-IGR 10*10000 

ISN 

0122 

GO  TO  590 

1 SN  0123 
ISN  012* 

1 SN  0125 
ISN  0126 

ISN  0127 
ISN  0126 
ISN  0129 
ISN  0130 
ISN  0131 
ISN  0132 
ISN  0133 
ISN  013* 
ISN  0135 

ISN  0136 
ISN  0137 

ISN  0136 
ISN  0139 

ISN  01*0 

ISN  01*2 


ISN  01** 
ISN  01*5 
ISN  01*6 
ISN  01*7 
ISN  01*6 
ISN  01*9 
ISN  0150 
ISN  0151 
ISN  0152 
ISN  0153 
ISN  015* 
ISN  0155 
ISN  0157 
ISN  0158 
ISN  0159 
ISN  0160 


C 

C  _  WE'VE  HIT  THE  CUT0U_T,_S0  GENERATE 
C  A  GRIO  POINT  ON  T.HE  CURVE  OF  THE  CUTOUT 

C  WE'RE  ABOVE  THE  *5.  SO  HOVE  IN  THE  Y-OIRECTION 

560  Td)»0SCRTJRA0IUS**2-XM2) 

GO  TO  570 

C  WE'RE  BELOW  THE  *5  SO  HOVE  IN  THE  X-D1RECTI0N 

.  *80  X*CS0RT(RA0IUS**2-Y<1)**2)  _  _ 

570  vY*-vm 

C  TRANSFORHING  FROH  ORIGINAL  TO  H0DIF1ED  RECT  COORD  SYSTEH 
XXH0D*YY*HT2 

YH00(1)*Z(1)  ..  .  .  _  . 

ZM00*X 

. WRITE  (7*1  )IGR  JOiXX)JDD*YHOO(1)j2HOD _ _ _ 

00  575  I*2,LAYERG 
YHODUWU) 

WRITE (7 *1  iJGRID.XXHOO.YHOOm  »2H0D 
JGRID»JGR 10*1 0000 
575  CONTINUE 

C  _  .  STORE  GRID  10 _ _  _ _  _ 

JCUR»JCUR*t 
1CUR  <  JCUR ) *  1 GR 1 0 
C  INCREHENT  GRID  ID'S 

1GRI0-1CRID*1 
JGRID-IGR  10*10000 
C  .  IF  THIS  IS  THE  FIRST., LINE.  OF  GRIDS.  DON'.T  GENERATE.  CONNECTIONS 
IF(Y(1)  .EQ.O.OGO  TO  530 
C  DIO  WE  CROSS  A  UNE  OF  GRIDS? 

1F(XSAVE.NE.XLA$T)G0  TO  500 
C  WE  DIDN'T  CROSS  A  LINE  OF  GRIDS  SO 
C  GENERATE  A  CUAO  ELEHENT 

C  ....  FIRST  SET  UP.  THEJJRJD.JJRDER _ _ _ 

1G(1)*1CUR(JCUR) 

IG(2)»1CUR( JCUR*1) 
lG(3>«LAST(JCUR-n 
!G(*)»LAST( JCUR) 

IG(5)*1G( 11*10000 

.  1G (6) *1 Gt 2)*1C000 . . .  .  _  _ 

1G(7)*1G( 3)*10000 
1C<8)»1C(*)*1C000 
JEL»!EL 
JPSOL-IPSOL 
DO  576  J*l. LAYERS 

...  .  IHJ.EO.l  JGO.  TO,  578_. _ _  _ 

JP$0L*JPS0L*10 
JEL»JEL*10000 
DO  577  X* 1 .6 
1G(K)>1G(K) *10000 


f  147 

I 

t 

I 


ISN  0161  577  CONTINUE 

.  C  PUNCH  CONNECTION  CARD  _  . . 

1SN  0162  578  WRITE (7*2 >JEL  .JPSOL .< 1G ( I)  ,1*1 ,6) , 1C0NT 

C  INCREMENT  CONTINUATION  FIELD 
1SN  0163  JC0NT-1C0NT 

1SN  0164  1C0NT«IC0NT*1 

C  PUNCH  CONTINUATION  OF  CONNECTION  CARO 

ISN  0165 _ WRITE (7j31JC0NTjlC.L7JLi.ICUi _ 

ISN  0166  576  CONTINUE 

C  INCREMENT  ELEMENT  JO  .  .  .  .  . . 

ISN  0167  !EL*!EL+1 

ISN  0168  CO  TO  530  .  . 

C 

. .  C . WE.  CROSSEO  A  LINE_DF_CRIDS  .SO  WE  NEED  .A..JRJANGULAR _ 

C  ELEMENT  INSTEAD  OF  A  QUAD  ELEMENT 
C  FIRST  SET.  UP.  THE  CRIO. ORDER 
ISN  0169  500  !C( 1 ) *1CUR< JCUR'l J 

ISN  0170  ?C(2)*LAST(JCUR«1)  . 

ISN  0171  TC(3I  1CUR1JCUR) 

ISN  0172  ...  ,  J5(4K1G<  1HJ0000 _ 

ISN  0173  i6(5)*!6(2)+10000 

ISN  0174  I6(8J»1C'?  3)410000  _  .  .  . 

ISN  0175  JEL*IEL 

ISN  0176  JPSOLMPSOL 

ISN  0177  00  505  J-1»LAYERS 

ISN  0178  _  .  IFtJ.EC.I  )_60.T0.5PL _ _ _ 

ISN  0100  JPSOL-JFSa.410 

ISN  0181  JEL«JEL«10000 

ISN  0182  00  506  K«l,6 

ISN  0183  IC(KI*IC(K)410000 

ISN  0184  506  CONTINUE 

C  PUNCH  CONNECT.ION.JIARO. _ _  „ 

ISN  0185  507  WRITE(7.4)JEL.JPS0L.(!C(1)»I>1»6) 

ISN  0186  4  FORMAT ( ‘CPENTA  ',818) 

ISN  0167  505  CONTINUE 

C  INCREMENT  ELEMENT  10 

ISN  0188  !EL«1EL*1 

C  .  SAVE  LAST  R  ANO_Y_  VALUES _ 

ISN  0169  530  VLAST «YSA  VE 

ISN  0190  XLAST«XSAVE 

C  NOW  MOVE  CURRENT  CRIOS  TO  LAST  CRIOS 

ISN  0191  DO  *10  I-l.JCUR 

ISN  0192  LAST<D<1CUR<  I> 

ISN  0193  510  CONTINUE  ..  _ 

ISN  0194  JLAST *JCUR 

C  RESET  CURRENT  f.RlO  COUNTER 

ISN  0195  JCUR-0 

C  MOVE  UP  A  LINE' 

ISN  0196  IF t ANCLE • CT *P I0W4 ) V ( 1 1 »YS i VE 

ISN  0l9e  .  .  .  V<D  'V<1)4DELTT2  _ 

C  ARE  WE  AT  THE  TOP  Of  THE  CUTOUT? 

ISN  0199  !F(Y<1).LT.<RA0!US«T0LER))C0  TO  430 

C  START  COINC  UP  IN  THE  Y-OIRECTION  UNTIL  WE  HIT  THE  TOP 

C  START  AT  THE  LEFT  EDGE 


1SN  0201  Y(1)»Y(1)-0ELTV2 

ISN  0202  60  TO  475 _ _ _ 

1SN  0203  420  X-MIOTH 

C  GENERATE  NEXT  LINE  OF  GRID  POINTS 

1SN  0204  IEN0»0 

ISN  0205  440  VY—Y<1) 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

ISN  0206  _  XXM0D«YY*HT2  _ _ _ 

ISN  0207  YMODIlWti) 

ISN  0208  2M00»X 

ISN  0209  MR1TE(7«1 lICRID.XXHOOtYMODU)  «2H0D 

ISN  0210  DO  445  I»2.LAYERG 

ISN  0211  YMOOUWt!) 

ISN  0212  NR  I TE  (7*1 )  JGR  ID  *XXM00j  YMOOU  I  tZMOD 

ISN  0213  JGRIO*JGR 10+10000 

ISN  0214  445  CONTINUE 

C  SAVE  GRID  ID'S  FOR  ELEMENT  CONNECTIONS 

ISN  0215  JCUR*JCUR+1 

ISN  0216  1CUR<JCUR)»I6RID 

C  INCREMENT  GRID  IO'S_  _ 

ISN  0217  1GRI0«ICR1D+'1 

ISN  0218  JGR10*1GR 10*10000 

C  SEE  IF  THERE  IS  A  POINT  NEXT  TO  THIS  ONE 

ISN  0219  IF  (JCUR«CT„JLAST)GD  TO  452 

C  MOVE  TO  THE  RIGHT  ONE  INCREMENT  AND  REPEAT 

ISN  0221  451  X-X-DELTAX  __  _  _ _ _ _ 

ISN  0222  1FU.GT.T0LERJG0  TO  440 

C  MAKE  SURE  ME  GET  THE  RIGHT  EDGE 

ISN  0224  IFUEND.EO.DGO  TO  450 

ISN  0226  X»0.0 

ISN  0227  IEN0»1 

ISN  0228  .  .  GO  TO  .440 _ _  _ 

C 

C  GENERATE  ELEMENT  CONNECTIONS 

C 

ISN  0229  450  00  460  I«2.JLAST 

C  FIRST  SET  UP  THE  GRID  POINT  ORDER 

ISN  0230  .  IC(1)»!CUR(1.) _  _ 

ISN  0231  IG(2I»ICUR( 1*1) 

ISN  0232  1G(3I»LAST(  I“U 

ISN  0233  16<4)-LAST(!> 

ISN  0234  1G<5)*1C< 11+10000 

ISN  0235  16I6»«I6(2)+1C000 

ISN  0236  IG(7)«JC(3)*10000  . . . 

ISN  0237  1G<8)*IGI4>+1C000 

ISN  0238  JEL»1EL 

ISN  0239  JPSOL*! PSOL 

ISN  C240  DO  455  K«1,LAYERS 

ISN  0241  IF(K.EO.l)  GO  TO  457 

ISN  0243  _  JEL»JEL+1 0000. _ _ _ _  __ 

ISN  0244  JPSOL •JPSOL* 10 

ISN  0245  DO  456  l»l,8 

ISN  0246  IG(L)»IC(L)+1 0000 

ISN  0247  456  CONTINUE 


C  PUNCH  CONNECTION  CARO 

ISN  0248  457  WRITE  (7.2  >JEL  ,JPSOL  »UG{  J  )  ,J»1  ,6).,  ICONT  __ 

C  INCREMENT  CONTINUATION  FIELD 

ISN  0249  .  JCONT-ICONT 

ISN  0250  1C0NT-1C0NTU 

£  PUNCH  CONTINUATION  OF  CONNECTION  CARD 

ISN  0251  WRITE (7 13 )JCONT .IG(7).IG(6) 

ISN  0252  _ 2  FORMAT UCHEXA _ ,jli8i±t,_i!7J _ _ _ 

ISN  0253  3  FORMAT! 17.2181 

ISN  0254  455  CONTINUE  .  .. 

C  INCREMENT  ELEMENT  10 

ISN  0255  1EL»1ELU 

ISN  0256  460  CONTINUE 

C  .  MOVE  CURRENT  .LINE  .OF.  6R 10  5  TO  LAST  LINE  ...  _ _ 

ISN  0257  00  470  1U.JCUR 

ISN  0258  LAST(l)»lCUR<n  ...  _ 

ISN  0259  470  CONTINUE 

ISN  0260  JLAST «JCUR 

C  MAKE  CURRENT  LINE  EMPTY 

ISN  0261 .  JCUR«0 _ _ _ _ _ 

C  MOVE  UP  A  LINE 

ISN  0262  475  YU)»V<1)*0ELTY2 . 

C  HAVE  WE  HIT  THE  TOP  YET7 
ISN  0263  lF(vm.LT.<HT2-T0LER))G0  TO  420 

ISN  0265  lFUEND2.E0.n6O  TO  600 

ISN  0267 . .  1EN02-1 _ _ 

ISN  0268  V(1 )aHT2 

ISN  0269  CO  TO  420 

C  IF  WE  DON’T  HAVE  A  POINT  NEXT  TO  THIS  ONE  PUT  ONE  ON  THE  CURVE 
ISN  0270  452  VY—OSORT(RAOIU$**2-X«2) 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

ISN  0271  ...  .XXMQ0-VY«HT2 _ _ _  _  __ 

ISN  0272  VMOD( 1)*Z (1) 

ISH  0273  ZMQD"X 

ISN  0274  WRITE  (7.1  MGR  ID.XXMOD.YMODO ) .ZMOD 

ISN  0275  00  453  1-2.LAYERG  . 

ISN  0276  YMoounzm 

ISN  0277  _  — WRITE (TjI  )  JCRI0.XX.N0D.»YM00,U  J»ZMOD _ _ _ 

ISN  0278  JGRlOaJGRlDUOOOO 

ISN  0279  453  CONTINUE 

C  STORE  GRID  10 
ISN  0280  JLAST aJLAST«l 

ISN  0281  LAST( JLAST) ■! GRID 

C  ..  INCREMENT  GRID  .ID _ _ _  _ 

ISN  0282  1GU0MCRI0M  '  ”  *' 

ISN  0263  JGRID*! CR ID* 1 0000 

ISN  0284  GO  TO  451 

ISN  0285  600  1GRID*( 1GRID/1000+1 )*1000*1 

ISN  0286  JGR 10*1 GRID* 10000 

ISN  0287  _  1EL*(  lEL/lOOOtl  )*1Q00*1  _  „  _  _ 

ISN  0288  XLAST'XX 

ISN  0289  IEND2«0 

C 

c 


150 


GENERATE  FIRST  PIECE  WITH  CUTOUT  IN  IT 


C 

.  C 
C 
C 

C  START  AT  THE  LONER  LEFTKAND  CORNER 

C  THEN  HOVE  TO  THE  RIGHT  UNTIL  HE  HIT  THE  CUTOUT. 

1SN  0290  tm«OELTAT 

ISN  0291  __  ..3CL.A5NI0TH _ 

C  GENERATE  FAR  LEFT  GRID  POINT 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM _ 

ISN  0292  XH00m*Y(l)*HT2 

ISN  0293  YMOOm-ZU)  . .  . . 

ISN  0294  ZHOD-X 

I SN  0295  _  HR  I TE  <7»1  ).l  GR  IDt.XMQPJLU  ,y  MOD  1 1 J  ..2M0D _ 

ISN  0296  00  95  I»2 tLAVERG 

ISN  0297  YMOOdWO)  . . 

ISN  0298  WRITE (7*1 IJGR 1D*XM0D( 1 ) »YMOD( 1 1 tZMQD 

ISN  0299  JGRID»JGR 10*10000  .  ...  _ 

ISN  0300  95  CONTINUE 

..  .  .  C _ ST0RE_6R10._m _ 

ISN  0301  JCUR»JCUR*1 

ISN  0302  1CUR( JCUR )»IGRIO  ....  ... 

C  IF  FIRST  LINE  OF  GRIDS  PICK  UP  GRID  •  FOR  LAST  LINE 

ISN  0303  !F( Y( 1 ) .E 0. DE LT AY ) L AST ( JCUR) "MOD ( 1 GRID* 1000)  . 

ISN  0305  lF(V(n.EO.OELTAY)JLAST>JCUR 

C  INCREMENT  GRID  Ip _ 

ISN  0307  IGRID-1GR10+1 

ISN  0308  JGR10*1GR  10*10000  ...  .  .  . 

C  MOVE  TO  THE  LEFT 

ISN  0309  90  X»X-DELTAX  _  _ 

C  SAVE  X  ANO  Y 

ISN  0310 . XSAVE-X _ 

ISN  0311  YSAVE»Y<1) 

C  ARE  HE  PAST  THE  457.  .  . 

ISN  0312  ANGLE*DATAN(Y(1 )/X) 

ISN  0313  1F(AK5LE.GT.PI0N4)G0  TO  140  .  _ 

C  8ELFW  THE  45 

C  _  F1N0  DISTANCE  FR0M_CUT0UT_ _ 

ISN  0315  1F(V(1).GT.RADIUS)G0  TO  150 

ISN  0317  DlST*X*0SQRT<fiA0IUS««2*Ym**2) 

C  ARE  WE  WITHIN  TOLERANCE  FROM  THE  CUTOUT 

ISN  0318  IF (DIST .LE. TOLER) GO  TO  80 

ISN  0320  GD  TO  150 

C  ABOVE  THE  45  _ _  _ 

ISN  0321  140  IF (X»GT (RADIUS )G0  TO  150 

ISN  0323  D1ST«Y(1)-DS0RT(RADIUS**2-X**2) 

ISN  0324  1F(0IST.LE.T0LER)G0  TO  160 

C  NOT  AT  THE  CUTOUT  VET  SO  GENERATE  NORMAL  GRID  POINT 

C  TRANSFORMING  FROM  ORIGINAL  TO  MODIFIED  RECT  COORD  SYSTEM 

ISN  0326  150  XMOO ( 1 ) »Y ( 1  ).♦. HT.2. _ _ _ 

ISN  0327  YMOD(l)»Zm 

ISN  0328  ZMOO«X 

ISN  0329  WRITE (7 »1 )IGR IO*XMOO( 1 1 iYMOO( 1 ) >ZMOD 

ISN  0330  DO  155  I«2.LAYERG 


1SN  0331 
ISN  0332 
ISN  0333 
ISN  0334 

ISN  0335 
1 SN  0336 

1SN  0337 
ISN  0339 

ISN  0341 
ISN  0342 

ISN  0343 


ISN  0345 
ISN  0346 
ISN  0347 
ISN  0346 
ISN  0349 
ISN  0350 
ISN  0351 
ISN  0352 
ISN  0353 
ISN  0354 
ISN  0355 
ISN  0356 
ISN  0358 
ISN  0359 
ISN  0360 
ISN  0361 
ISN  0362 

ISN  0363 

ISN  0364 
ISN  0365 

ISN  0366 
ISN  0367 

ISN  0368 

ISN  0369 

ISN  0370 

ISN  0371 
ISN  0372 
ISN  0373 
ISN  037«. 
ISN  0375 


YM0D(I)*21I) 

_ WRITE  (7 »1 1  JCR  ID.XMODi  1 1  tYNODt  I 1.  »ZMQD _ _ _ 

JCR I 0* JGR ID* 1 0000 

155  CONTINUE  ..._  _  ..  .... 

STORE  GR10  10 

JCUR*JCUR4l  ._ 

1CUR( JCUR )*1GRID 

_ JF.  FIRST  .LINE.  0F_5R IP S^f.ICK.  UP  GRID  •  FOR.  LA5T_L1NE _ 

IF ( Y( 1) .EQ.OELTAY 1LAST ( JCUR)*MOD( IGR  10*1000) 

IF (Y(l)  .EQ.OELTAY ) JL A ST* JCUR 
INCREMENT  CRIO  IO'S 

1GRID*10R  10*1  _  _  ....  _  .  .. 

JGRID*IGR  10*10000 

MAKE  SURE  WE  HAVE  A  POINT  NEXT  TO  THIS  ONE  _  _ 

IFOCUR.GT.JLASmO  TO  180 
GENERATE  OUAD  ELEMENT 
FIRST  SET  UP  GRID  POINT  ORDER 
190  IC(1)«LA$T(JCUR) 

IC(2)*LAST( JCUR-1) 

.  _  16(3 1*1  CUR(  JCUR?!.) _ _  ... _ 

IC(4)*ICUR( JCUR) 

I6(5)*1C( 1)410000  _  _ 

IG( 61 *16(2)410000 

IG(  7)  *10(3)410000  ..  . 

16(81*16(4)410000 

_ JEL*1EL _ _ _ 

JPSQLMPSQL 

00  165  J*l, LAYERS  . 

IF(J.EQ.l)  GO  TO  167 

JEL«JEL410000 

JPSOL*JPSOL4lO 

..  ..  00  166  K-1.8 _ _ _ _ 

1G(K) *16(K) 4)0000 

166  CONTINUE 

PUNCH  CONNECTION  CARO 

167  WRITE (7 .2 )JEL .JPSOL  *(1G(1)*1*J*6)« 1C0NT 
INCREMENT  CONTINUATION  FIELD 

.  ..  JCONT*ICONT  _ _ _ _ _  _ 

lC0NT*lC0Nf4l 

PUNCH  CONTINUATION  OF  CONNECTION  CARO 
WRITE (7. 3 )JC0NT.1G( 7).1G(8) 

165  CONTINUE 

INCREMENT  ELEMENT  10 

.  IEL*1EL41  .  _ _ .  ...  ._  _ _ 

KEEP  GOING  TILL  WE  HIT  THE  CUTOUT 
GO  TO  90 

IF  WE  DON'T  HAVE  A  POINT  NEXT  TO  THIS  ONE  PUT  ONE  ON  THE  CURVE 
180  YY*40S6RT(RA01US**2*X«2) 

TRANSFORMING  FROM  ORIGINAL  TO  M00IF1E0  RECT  COORO  SYSTEM 

_  XXM00*YY4HT2  _  _  _ 

YM00(l)*2(l)'  '  . . . 

2MQD*X 

WR I TE ( 7 .1 1 1 GR ID , XXMOD . YMOO ( 1 ) . 2M0D 
00  185  1*2.LAYERG 


ISN  0376  YM00U  )»ZU) 

1SN  0377  WRITE  <7el  1JGR  1D,XXH0D, YMOO( 1 ) *ZMOD 

ISN  0376  JGRID«JGRID4lCOOO 

ISN  0379  185  CONTINUE  ...  _  .... 

C  STORE  GRID  10 

ISN  0380  JL*ST«JUST4l  .  . 

ISN  0361  LAST! JLAST)«IGR10 

.  C  ...  INCREMENT  GRID. ID _ 

ISN  0382  IGR1D*IGRID41 

ISN  0383  JGRI0-1GR 10410000 

ISN  0369  GO  TO  190 

C 

C  WE’VE  NIT  THE  CUTOUT,  SO  GENERATE 

C  A  GRID  POINT.  ON  .THE  CURVE  OF  THE  CUTOUT  . . 

C  WE’RE  ABOVE  THE  95,  SO  HOVE  IN  THE  Y-DIRECTION 
ISN  0385  160  Y ( 1 ) »DSCR T(RA01US**2-X**2 ) 

ISN  0386  GO  TO  170 

C  WE'RE  BELOW  THE  95  SO  HOVE  IN  THE  X-DIRECTION 
ISN  0387  80  X«DSQRT (R ADIUS**2"Y ( 11**2 ) 

C„.  .TRANSFORMING  FROM. .ORIGINAL ..TO  HOOIF 1*0 .RECJ.COORO.  SYJTfH 
ISN  0386  170  XM00m«Y<l)4HT2 

ISN  0389  YMODUW(I) 

ISN  0390  ZHOO-X 

ISN  0391  WRITE (7,1 1 IGR !D,XMOD( 1 1 ,YHDD( 1 ) »ZMOO 

ISN  0392  00  175  1-2.LAYERG 

ISN  0393..  .  .  YMOOUWOJ .  . . . 

ISN  0399  WRITE (7 ,1 IJGR  10,XM00( 1 ) *VNOO( 1 1 tZHOD 

ISN  0395  JGR ID >JGR 10410000 

ISN  0396  175  CONTINUE 

C  STORE  GRID  10 

ISN  0397  JCUR>JCUR4l 

ISN  0398  .  _  ICURUCURMGRID .  . . .  „  _ 

C  IF  FIRST  LINE  OF  GRIDS,  PICK  UP  GRID  •  FOR  LAST  LINE 
ISN  0399  IF ( Y( 1 ) •EQ«0ELTAY )LAST ( JC UR ) "MOD ( IGR ID, 1000) 

ISN  0901  1F( Y( 1 ) .E O.OEITAY ) JLAST «JCUR 

C  INCREMENT  GRID  ID’S 

ISN  0903  IGRID*IGR 10*1 

ISN  0909  _ JGR I D ■  I GR  10.4 1 0000. _ _ _ _ _ 

C  010  WE  CROSS  A  LINE  OF  GRIDS? 

ISN  0905  1F(XSAVE «NE .XL AST ) GO  TO  100 

C  WE  OION’T  CROSS. A  LINE  OF  GRIDS  SO 
C  GENERATE  A  OUAD  ELEMENT 

C  FIRST  SET  UP  THE  GRID  ORDER 

ISN  0907  ..  IG(  1 »  -LAST*  JCU«  > _  ...  . . 

ISN  0906  IG(2)«LAST(JCUR"1) 

ISN  0909  IG(3) «I CUR( JCUR-I ) 

ISN  0910  1G(9)«ICURUCUR) 

ISN  0911  1C(5)*IG(1)410000 

ISN  0912  IG(6)«1G( 2)410000 

ISN  0913  .  ..  .  ICI7)«!C<3)41C00Q. _ _ _ _ _ 

ISN  0919  IG<8)*1G(9)410000 

ISN  0915  JEL*!EL 

ISN  0916  JPS0L«1PS0L 

ISN  0917  DO  176  J«1,LAYERS 


1SN  0418  lFIJ.E6.nC0  TO  176 

ISN  0420  . JPS0L«JP50L*10 _ _ _ 

1SN  0421  JEl*JEL+) 0000 

ISN  0422  00  177  K-1,8  ...  . 

ISN  0423  1G(K)*1C<K)*10000 

ISN  0424  177  CONTINUE  . .  . 

C  PUNCH  CONNECTION  CAPO 

JSN..0425 _ 176  .HR1TE«7,2JJ.EL*JPS.0.L»1.UU.U.»1«1j6Jj1K0NT _ 

C  INCREMENT  CONTINUATION  FIELD 

ISN  0426  JCQNT«1C0NT  . . . . 

ISN  0427  1C0NTMC0NW1 

C  PUNCH  CONTINUATION  OF  CONNECTION  CARD  .  . 

ISN  0428  NR1TE (7.3 IJCONT . !C( 7) • 1G(8) 

ISN  0429._  ..176.  CONTINUE _ _ _ 

C  INCREMENT  ELEMENT  10 

ISN  0430  IEL»1EL«I 

ISN  0431  GO  TO  130 

C  . 

C  NE  CROSSEO  A  LINE  OF  GRIDS  SO  ME  NEEO  A  TRIANGULAR 

_  .  C _ ELEHENT.J.NSTiA0_0.F_.A_6.U*0._ELE.HENI _ 

C  FIRST  SET  UP  THE  GRID  ORDER 

ISN  0432  100  ICm-LA$T(JCOR-n _ _ 

ISN  0433  IG(2)»1CUR(JCUR-1) 

ISN  0434  1G(3)«1CUR(JCUR)  _  .. 

ISN  0435  1G(4)>1G(1)«10000 

JSN.  0436. _ 1G( 5.) "10.1 2 1.4 10000 _ 

ISN  0437  1G(6)>1C(3)«10000 

ISN  0438  JEL*IEL  ... 

ISN  0439  JPSOL*IPSOL 

ISN  0440  00  105  J»l, LAYERS 

ISN  0441  IF( J.EO.l  I  GO  TO  107 

ISN  0443 . .  JPSOL«JPSOL*.IO _ _ 

ISN  0444  JEL>JEL*10000 

ISN  0445  00  106  K>1,6 

ISN  0446  1G(K)-1G(K)*1C000 

ISN  0447  106  CONTINUE  .  .. 

C  PUNCH  CONNECTION  CARO 

ISN. 0448  107  MRITE(7,4JJELjJ&SQLt.UC.UJjI»l,t> _ 

ISN  0449  105  CONTINUE 

C  INCREMENT  ELEMENT  !0 

ISN  0450  IEL-1ELM 

C  SAVE  LAST  X  AND  Y  VALUES 

ISN  0451  130  YLAST-YSAVE 

ISN  0452  . XLAST *XSA VE  _ _  _ 

C  NOW  MOVE  CURRENT  GRIDS  TO  LAST  GRIDS 
ISN  0453  DO  110  I>1.JCUR 

ISN  0454  LAST ( 1 ) *1 CUR( 1 ) 

ISN  0455  110  CONTINUE 

ISN  0456  JLAST »JCUR 

C  _  RESET  CUR RE  NX  OR ID.  .COUNTER  _  __ 

ISN  0457  JCUR«0 

C  MOVE  UP  A  LINE 

ISN  0458  IF ( ANGLE . GT *P I0N4 ) Y ( 1 l» Y5 AVE 

ISN  0460  Y(i)«Y(n*DELTAY 


1SN  0461 


JSN  0463 
ISN  0464 
ISN  0465 

ISN  0466  '* 

ISN  0467 
ISN  0468 
ISN  0469 
ISN  0470 
ISN  0471 
ISN  0472 
ISN  0473 
ISN  0474 
ISN  0475 

ISN  0476 
ISN  0477 

ISN  0478 
ISN  0479 

Vsn'o4b6  ~ 

ISN  0482 
ISN  0463 

ISN  0485  .. 


ARE  ME  AT  THE  TOR  OF  THE  CUTOUT? 

IF< V< 1 ) «LT. <R A0IUS*T0LER) ICO  TO  30 

"  start  going"  up  in  the  y-direct ion  “until  he  hit  the  top 

START  AT  THE  LEFT  ECGE 

Ym«Ytl)-OELTAY 

CO  TO  75  _ 

20  X<WIDTH 

_ GENERATE  .HEX  J_JJ^g.J)F_S_RJ.O_  PP INT.S _ 

1END<0 

TRANSFORMING  FROM  ORIGINAL  TO  H0D1F1E0  RECT  COORD  SYSTEM 
40  XH00<1J<Y<1J<HT2 

YM0D<1J<Z<1J . .  .  .  . .  . . 

ZMOD-X 

WRITE  <7,1  )IGR10,XMOO(  1  \  tYMODt  1 )  ,ZMOD _ _ 

DO  45  I»2,LAYERG 

YHoom-zm  . .. 

WRITE  (7*1 )  JCRID.XHOOU )  ,YMOD<  I J  .ZMOD 

JGRID<JGRID*10000  . 

45  CONTINUE 

SAVE  GRID  IO»S  FOR  ELEMENT  CONNECTIONS  _  _  _ 

JCUR<JCUR*1 

1CUR< JCUR )<1GRID  . . .  . 

INCREMENT  GRIO  ID’S 

IGR10*1GR  10*1  .  .  . 

JGRID<I GRID* 10000 

...SEE  IF  THERE  .IS. APPOINT  NEXT.70.TH1S  ONE _ 

IF  tJCUR.GT.JLASTJCO  TO  52 

MOVE  TO  THE  RIGHT  ONE  INCREMENT  AND  REPEAT  ... 

51  X<X-DELTAX 

IFIX.GT.TOLERIGO  TO  40  _  ... 

MAKE  SURE  WE  GET  THE  RIGHT  EDGE 
_  .JFUENO.EO,U.CO.JJL50 _ _ _ 


ISN  0487 

X-0.0 

ISN  0468 

1END<1  _ 

ISN  0489 

e 

GO  TO  40 

V 

C 

f 

GENERATE  ELEMENT  CONNECTIONS 

ISN  0490 

t  _ 

30"06"60"  l»2.JLAST 

c 

FIRST  SET  UP  THE  GRIO  POINT  1 

ISN  0491 

1G<D<LAST<  I ) 

ISN  0492 

IG<2J<LAST< I-ll 

ISN  0493 

IG<3J<1CUR< 1*11 

ISN  0494 

.  .  IG<4J<1CUR<IJ  _ _ _ 

ISN  0495 

1G<5J<1G<  1X10000 

ISN  0496 

IG<6J<IG<2J *10000 

ISN  0497 

16<7)»IG<3J* 10000 

ISN  0498 

1G<8J<IG<4J<10000 

ISN  0499 

JEL-1EL 

ISN  0500  _ 

ISN  0501 
ISN  0502 
ISN  0504 
ISN  0505 


JPSOLMPSOL _ 

DO  55  K«1  .LAYERS 
IF(K.EC.l)  GO  TO  57 
JEL<JEL*10000 
JPSQl»JPS0L*10 
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ISN  0506 
ISN  0507 
1 5N  0508 

ISN  0509 

ISN  0510 
ISN  0511 

ISN  0512 
ISN  0513 

ISN  0514 
ISN  0515 

ISN  0516 
ISN  0517 
ISN  0518 
ISN  0519 

ISN  0520 

ISN  0521 

ISN  0522 
ISN  0524 
ISN  0526 
ISN  0527 
ISN  0528 

ISN  0529 

ISN  0530 
ISN  0531 
ISN  0532 
ISN  0533 
ISN  0534 
.  ISN  0535 
ISN  0536 
ISN  0537 
ISN  0538 


00  56  L*1 *8 

16  (L)  “16(0  *10000 _ _  ... _  ..  .  _ 

56  CONTINUE 

C  PUNCH  CONNECTION  CARO  .  ... 

57  WRITE (7,2  )JEL  ,JPSOl  ,UG(  J  )  ,J«1  ,61 ,  ICONT 

C  .  INCREHENT  CONTINUATION  FIELD  _  _  . 

UCONT- ICONT 

_ ICONT  “ICONT  4.1 _  _ 

C  PUNCH  CONTINUATION  OF  CONNECTION  CARD 

WRITE (7*3  )JCONT ,IG(7),IG(8) 

55  CONTINUE 

C  INCREHENT  ELEHENT  10 

IEL“IEL*1 

.  60  CONTINUE  _ _ _  _ 

C  HOVE  CURRENT  LINE  OF  6RI0S  TO  LAST  LINE 

DO  70  I«1.JCUR  .  .  _ 

LAST( I ) •! CUR( 1 ) 

70  CONTINUE 
JLAST«JCUR 

C _ HAKE  CURRENT.  LlKf  JEMP.TY _ _ 

JCUR“0 

C  HOVE  UP  A  LINE 

75  Y(1)“Y(1)*DELTAY 

C  HAVE  WE  HIT  THE  TOP  YET? 

IF ( Y( 1 ) «LT« (L£GX1*T0LER ) ) GO  TO  20 

.  .  IF  ( IEND2  *Eftj  1  JGO_IO_2DO _  _ _ __ _ 

IEN02-1 

Y(1  )“LEGX1  .  ... 

GO  TO  20 

C  IF  ME  DON'T  HAVE  A  POINT  NEXT  TO  THIS  ONE  PUT  ONE  ON  THE  CURVE 

52  YY“4DSORT(RAOIUSp*2-X**2I 

C  ..  TRANSFORMING  FR0M_0RJC1NAL_ T0.H00IFIED  RECT  COORD„SY.SJ.EH _ 

XXH0D“YY*HT2 

YHOO( 1)“2 (1 )  .  . 

ZHOO-X 

WRITE  (7,1  MGR  IC.XXHCO.YMOOm  .ZHOO 
00  53  I-2.LAYERG 

_ YHODd  >  -J!  (IJ  _ _ _ _ 

WRITE (7,1 )JGR I0,XXH0D,YH00(I) ,ZHOD 
JGRID“JGR 10410000 

53  CONTINUE 

C  STORE  GR10  ID 


ISN  0539  JLAST«JLAST«1 

ISN  0540  .  .  ,LAST(JLAST)«IGRID _ . 

C  INCREHENT  GR10  10 

ISN  0541  1GRID«IGR 10*1 

ISN  0542  JGRIO“ICR 10*10000 

ISN  0543  GO  TO  51 

C 

"  C  ENO  OF  F1RST~PIECE 

C 

c 

c 
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i 


C  GENERATE  THE  90-DEGREE  bend 

C  FIRST  ESTABUSH  "a 'CYLiNDR  iCAr  CO-ORDINATE  SYSTEM 
ISN  0599  200  X*0.0  .... 

ISN  0595  LEGX«HT2*LEGX1 

1SN  0596  LEGXP1-LEGX+1. 

ISN  0597  LEGY*LEGY 

1 SN .  0598  _ NRITE.(7j2.01  )LEGX.,Lf  OIj.LEG.X.,LEGY  ,IC.ONT _ _ _ 

ISN  0599  201  FORMAT ( •C0RD2C  •  »5X» MOO  •  *6X»2F8«9«5Xt ,0»0*  »2F8»9 t5X«  *1 .Of  ’# 

*17)  ..  . . . .  . . 

ISN  0550  JCONT«!CONT 

ISN  0551  ICONT«ICONT*1  .  .  . . 

ISN  0552  NRITE(7*202)JC0NT »LEGXP1«LEGY 

.  I  SN  0553 _ 202.F0RHA.T ( *♦!»  1.7 »,2F8.9j5Xj  L04Q.»  l _ 

C  SET  INITIAL  VALUES 

ISN  0559  IPS0L»1PS0L*1  _  . 

ISN  0555  R(1)*BEND 

ISN  0556  00  205  l«2.LAVERG  .  ..  _ 

ISN  0557  RU)»R(I-1)*TU-1> 

ISN  0558 205...C0NT1NUE _ 

ISN  0559  THETA»OELTAT 

ISN  0560  IEL •(  (1EL/1000+1  )*J000*1 

ISN  0561  IEN02-0 

ISN  0562  250  IEN0-0 

ISN  0563  ZUi>0.0 

C  TRANSFORMING  FROMJJRipiNAL  TO  MODIFIED  CYLINDRICAL_COOR.D  SYSTEM _ 

I SN  0569  220  TMM 00*90. -THETA 

ISN  0565  2MOD2 ( 1 )«NIOTH“Z ( 1 ) 

ISN  0566-  HRITE(7,203)IGRIO.Rm*THHOD,2MOD2(l) 

ISN  0567  203  FORMAT! ’GRID  • . 18 ,5X, • 100« , 3F8.9 ) 

ISN  0568  DO  225  I«2.LAYERG 

ISN  0569  .  _HRITEI7.2O3)JGR10.,B.aijT«MO0*2M0P2Jl) _ 

ISN  0570  JGRID-JCR 10*10000 

ISN  0571  225  CONTINUE  _  . 

ISN  0572  JCURaJCUR+1 

ISN  0573  ICUR( JCUR )«ICRIO 

ISN  0579  IGRI0»1GR10«1 

_  ISN  0575  .  .  „  JGRIO'l GR  ID.*  10000. _ _ 

ISN  0576  Z( 1 )a2( 1 ) ♦DELTAX 

ISN  0577  1F( 2( 1 ) .LT. (NIDTH-TOLER ) ) GO  TO  220 

C  MAKE  SURE  ME  GET  THE  EDGE 

ISN  0579  1FIIEND.E0.DG0  TO  210 

ISN  0561  ZU)«N10TH 

ISN  0582  _ 1EN0«1 _ .....  _ _ 

ISN  0583  GO  TO  220 

C  GENERATE  CONNECTIONS 

ISN  0569  210  00  230  1*2.UCUR 

C  SET  UP  THE  GR10  POINT  ORDER 

ISN  0565  1C(1)*LASTU) 

ISN  0586  ..  .  IGt2)«LASTU-l> _ _ _ _ 

ISN  0587  IC(3)alCUR( I-l ) 

ISN  0588  16«9)»ICUR<I) 

ISN  0589  1G(5)S1C(  D  +  10000 

ISN  0590  1C(6)*IC( 21*10000 
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ISN  0591  1C(7)«IG( 3} *10000 

1  SN  0552  . IG(8)»IG< 41*10000 _ _ , _ ...  _ 

1  SN  0593  JEL-IEL 

1SN  0594  JFS0L-IPS0L 

1SN  0595  00  215  Ml, LAYERS 

1SN  0596  IHK.EO.nGO  TO  217 

ISN  0598  JEL"JEL*10000 

1  SN  0599  _ JPSOL-JPSOL*.i.O _ 

ISN  0600  00  216  L-l»8 

1  SN  0601  1G(L)-1C(L)*1COOO  ._  . .  . 

ISN  0602  216  CONTINUE 

C  PUNCH  CONNECTION  CARO  . . . 

ISN  0603  217  WRITE (7 ,2 IJEt *JPSOL  *( 1C( J 1 »J-1 ,6), 1C0NT 

C  INCREMENT  CONTINUATION _ _ _ _  _ 

ISN  0604  JC0NT-1C0NT 

ISN  0605  1C0NT-1C0NT*1  ........ 

C  PUNCH  CONTINUATION  OF  CONNECTION  CARO 

ISN  0606  WRITE (7,3) JCONT ,16(71,16(8) 

ISN  0607  215  CONTINUE 

C  .  .  INCREMENT  .ELEMENT. .10 _ _ _ 

ISN  0608  IEL-IEL*! 

ISN  0609  230  CONTINUE 

C  MOVE  CURRENT  GRIDS  TO  LAST  GRIDS 

ISN  0610  DO  240  1-1«JCUR 

ISN  0611  LASTUMICURU) 

ISN  0612  .  240  CONTINUE  ...  _ 

ISN  0613  JLAST-JCUR 

ISN  0614  JCUR-0  .  .  .  .  .  _  . . 

C  INCREMENT  ANGLE 

ISN  0615  THETA-THETA*OELTAT  _  ... 

ISN  0616  IF(THETA.LT,86. 99995)00  TO  250 

ISN  0618  .  lF(lEND2.E8,n60_TqL_?4Jt . . . . 

ISN  0620  IEN02-1 

ISN  0621  THETA-90,  .  .  . 

ISN  0622  CO  TO  250 

C  ... 

C  END  OF  90  DEGREE  SEND 

c  •' 

C 

C  START  OF  80TT0M  P!ECE(NO  CUTOUT  1 

C  ... 

C 

C  INITIALIZE  CONSTANTS  . . 

ISN  0623  241  1ELM  ( IEL/1000)*!  1*1000*1 

ISN  0624  IEN02-0 

ISN  0625  1PS0L-IPS0L*! 

ISN  0628  Y(1)-LECX1«8END 

ISN  0627  DO  245  1-2,LAY£RG 

ISN  0628  r(n-7(I-U*TU-l» _ _ _  _ _ 

ISN  0629  245  CONTINUE 

C  START  GOING  OOMN  IN  THE  Z-D1RECTI0N  UNTIL  HE  HIT  THE  80TT0H 
C  START  AT  THE  LEFT  ECGE 

Z(1>-LEGV>DELTAZ 


ISN  0630 


1 $N  0631  320  X-WIDTH 

C  GENERATE  NEXT.  L1NE_GF.  QRID  POINTS 

1SN  0632  1EN0>0 

C  TRANSFORMING  FROM  ORIGINAL  TO  MOOIFIEO  RECT  COORD  SYSTEM 
1SN  0633  360  XMOOt 1) aY (1 >*HT2 

ISN  0636  .  .  .  YMOOtlWU)  _  .  . . 

1SN  0635  2M0D»X 

ISN  0636  _ WRITE (TsI  IIGR  JO».XMO.OJ11.»Y.M.OO(JI.L»ZMOD _ 

ISN  063?  DO  365  la2.LAYERG 

ISN  0638  XMOOt I )»Y (1 1*HT2 ..  .  „  . . . 

ISN  0639  WRITE (7 1 1 1 JGR ID, XMOOt 1 ) *YMOD( 1 ) *2M0D 

ISN  0660  JGRlDaJGR  10*10000  _  .  _ 

ISN  0661  365  CONTINUE 

C._.  SAVE  GR 10  JOiS  .FOR  .ELEMENT  CONNECTIONS  _ _ 

ISN  0662  JCURa JCUR*1 

ISN  0663  ICURt JCUR )aIGRID  ...  _ 

C  INCREMENT  GRID  ID'S 

ISN  0666  .  lGRIDa10RID*l  .  .... 

ISN  0665  JGR IDalCR 10*10000 

.  C _ MOVE  .TO.  THE.  R1GHU3NE.  INCREMENT  .AND..REPEAT. _ 

ISN  0666  X«X-D£LTAX 

ISN  0667  IFtX.CT.TOLERICO  TO  360  .  _  . 

C  MAKE  SURE  ME  GET  THE  RIGHT  EDGE 

ISN  0669  IFtlENO.EQ.llGO  TO  .350  . 

ISN  0651  Xa0.0 

ISN  0652  _ .1EN0»J _ _ _ _ 

ISN  0653  GO  TO  360 

C 

C  GENERATE  ELEMENT  CONNECTIONS 

C  . 

ISN  0656  350  00  360  1-2.JLAST 

.  C _ FIRST.  SET  UF...JHE_GRJD  J?OI NT. ORDER _  .  .  _ _ 

ISN  0655  IGt l) aLASTt 1 1 

ISN  0656  IGt2) aLASTt I“ll  ... 

ISN  0657  I6t3>aICURtl-l> 

ISN  0658  IGt 6) a!CUR( 1 1 . 

ISN  06-19  IG(5)alGt  11*10000 

ISN  C660  _ lG(6)aIC(  2)*_1.0000_ _ ..... _ 

UN  0661  IG(7)«IG(  31*10000 

ISN  0662  IGt 8} aIGt  61*10000  _ 

ISN  0663  JEL«1EL 

ISN  0666  JPSOLalPSGL 

ISN  0665  DO  355  KM, LAYERS 

ISN  0666  . IFtK.EO.DGO  TO  .35.7 _ _ _ _ 

ISN  0668  JELaJEL*10000 

ISN  0669  JPSOL»JPSOL*10 

ISN  0670  CO  356  1>1,6 

ISN  0671  1G(L)*!C( L) *10000 

ISN  0672  356  CONTINUE 

.  .  ,C._  PUNCH  CONNECTION  CARO _  _ _ _  .  _ _ 

ISN  0673  35?  WRITE  <7 .21JEL  .JPSOL  it  IGt  J  1  »Jal  t6) , ICONT 

C  INCREMENT  CONTINUATION  FIELD 

ISN  0676  JCONT* ICONT 

ISN  0675  ICONTaICONT*l 
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C  PUNCH  CONTINUATION  OP  CONNECTION  CARO 

1SN  0676  .  ..WRITE  17 #3  1JC0NT ilG.LD. » JC.(.8 ) _ 

ISN  0677  355  CONTINUE 

C  INCREMENT  ELEMENT  JO  ... 

ISN  0678  IEL*1EL+1 

ISN  0679  360  CONTINUE  .... 

C  HOVE  CURRENT  LINE  OP  GRIDS  TO  LAST  LINE 

JSN  -0660  _ D0„370.J«1*JCUR _ : _ 

ISN  0681  LAST(I)*1CUR(I) 

ISN  0682  370  CONTINUE  . . . 

ISN  0683  JLAST-JCUR 

C  HAKE  CURRENT  LINE  EHPT7  .  ... 

ISN  0684  JCUR-0 

.  .  .  _.C _ HOVE.UP_A.iI.NE _ 

ISN  0685  ZU>»Z(1>-DELTAZ 

C  HAVE  WE  HIT  THE  BOTTOM  YET?  .  . 

ISN  0686  !P(Zm.CT,TQLER)GO  TO  320 

ISN  0688  IFUEND2.EO.11GO  TO  120.  . 

ISN  0690  IEN02*1 

ISN  0691  _ ZlD-0.0 _ 

ISN  0692  GO  TO  320 

C  MERE  DONE..  WHEW _ _ 

C  SO  DUMP  THE  SUPPER 

ISN  0693  120  ENOPILE  7  .  ..  . 

C  AND  GET  THE  HELL  OUT 

..ISN  0694 _  ...  STOP. _ 

ISN  0695  900  WRITE (6.9011 

ISN  0696  901  FORMAT < •-•••ERROR***.  TOO  MANY  LAYERS  SPECIFIED* ) 

ISN  0697  STOP 

ISN  0698  ENO  ._  .  ... 
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PARAMETER  ECHO 


LEOX1*  0.27C0 

LECY*  ,..0.5100 _ 

WIDTH*  0.5000 

RADIUS*  0.2500 

DELTA-Y*  0*0900 
DELTA-X*  0.1000 
DELTA-T*  15.0000 

BEND*  .  ...0.1250 _ 

TOLERANCE*  0.0150 
OELTA-2*  0.1700 
LAYERS*  1 

DELTAY2*  0.1330 
HE1CHT2*  O.AOOO 
LAYER-  1  THICKNESS*  .0.1250... 
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APPENDIX  G 


C-l  PLOT  RUN  DATA  DECK  SETUP  AND  UNDEDORMED  PLOTS 


1. 
2. 
3  • 

4. 

5. 
6  • 

-  T. 

6. 
9. 

10. 

11. 

12. 

13. 

IS, 

15. 

16. 
17. 

15: 

20. 

21. 

22. 

23. 

24. 

25. 

26. 
27. 
26. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 
.37. 

36. 

39. 

40. 

41. 

42. 

43. 


//  JOB  <900004,, 048, 300>,PLOTC-14,CLASS<  -  . . 

//RUN  EXEC  NIST 46  »PT APE-WVLBUR ,PL0T»WYL302  » 

//  PL0TDSN«'CX9O00O4.SSS.PL0TClV',PL0TPGH*PL0T936,  - 
//  H1«1.KON360»12K,P6UF»141,P6UFF»400.R«299K 

10  N00aCl.PL0TC14  -  - -  - - 

SOL  24 

TIME  5 - 

DUG  8,14 

ALTER  23  * .  -  .  . . . 

EXIT  A 

ENOALTER  -  - -  -  - 

CENO 

TITLE  *  PRE-PROCESSOR  PROOUCEO-GEOMETRY--4MOOEL  0141  -  - 

OUTPUT (PLOT ) 

PLOTTER  NASTRAN  MOOEL  0,0 .  -  . 

SET  1  *  1  TMRU  1072  EXCLUOE  GR10  POINTS  10001  THRU  11003 
SET  2  •  2001  TMRU  2090  — .  --  - 

ill  _ 

% 

A  PLOT  MESH  .1  _  _ 

$ 

AXES  Y.X.M2  .  .  .  _ _ 

VIEW  o.,o.,o. 

PTITLE»PART_1  WITH  WA5HER1_IDFL-Y1£R _ 

FIND  SCALE  SET  1  ORIGIN  1 

PLOT  SET  1  ORIGIN  1  LABEL  ELEMENTS 

PLOT  SET  1  ORIGIN  1  LABEL  GRIDS 

A  _ _ ....  _ 

AXES  Z.X.Y 
VIEW  0..0..0.  _ 


PT1TLE-FULL  BRACKETS  VIEW  0,0.0 

FINO  SCALE  SET  4  ORIGIN  6 _  . 

PLOT  SET  4  ORIGIN  6 

6  .  .  . . 

•  PLOT  MESHES  1,11,  ANO  111 

AXES  2  ,X»Y 

VIEW  *10. ,20. ,*30. 

PT1TLE -FULL  BRACKETS  3-0  VIEW  -10.20,-30 
FIND  SCALE  SET  4  ORIGIN  5  .  . 

PLOT  SET  4  ORIGIN  5 

BEGIN  BULK  _ _ _ _ 


(BULK  LATA) 


ENDDATA 
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0.0 

0.0 

0.0 

0,0 

11066 

4011 

HU* 

iwwwn-w 

2.41444*4*00 

•4.440*421 • 15 

0.0 

0.0 

0.0 

UU5 

- 

•  IDTUi*  _ 

_ jwmwuw 

1«4*( |OOE •  |4 

•4. 440*421-16  ^C.C 

0.0 

—  .  . 

0.0 

live* 

*HP-lO*U 

0.0 

•4.414465k  *00 

0.0 

0.0 

C.O 

0.0 

uou 

soil 

HEX* 

•i.tmiiuct 

2.5}4(21i«00 

i.mmwci 

0.0 

*  e.o 

0.0 

I1CU 

30U 

HU* 

>,«ism*« 

2.42041*1*00 

•1  . 1 741421 *01 

f  .0 

0.0 

0.0 

11016 

«ior«it» 

3.620MU  *  W 

•>. 111(441-14 

•*.4)12441 -16 

0.0 

0.0 

0,0 

-  * 

1106? 

AHP*lCAO 

0.0 

•4.4414**11  »00 

C.O 

0.0 

C.O 

0,0 

act) 

30W 

Hit* 

•5 ,724)7*1-02 

2.614466k *00 

3.4/05441*01 

0.0 

o.e 

o.e 

non 

3013 

HU* 

6,724)1*1*02 

2.4004641*00 

•3.41C5441-0! 

C.O 

0.0 

0.6 

non 

- 

•  IQWlW 

*.4)i)403 1  •  W 

1, 4*14441*14 

4.4444301*14 

0.0 

0.0 

0.0 

UW* 

•►P-IUW 

0.0 

*4 , 4441411  *00 

0.0 

0.0 

0.0 

0,0 

ncti 

101) 

HU* 

*4.2 )4t*«t *04 

2.5**4*11*00 

•  .4**»m*oi 

0.0 

0.0 

0.0 

»10t* 

low 

HU* 

4.2331**1  *02 

2.010)11  >60 

•5,4*05:61 *0 l 

0.0 

0.0 

0.0 

^  !,0fc# 

•tomw 

•.)>nm*w 

•1  .4*71411-14 

1. It  16  2I1*|4 

0*0 

0.0 

0.0 

11 0U» 

*hP«10*0 

0.0 

•4.1444441 tOO 

C.O 

0.0 

0.0 

0.0 

not* 

low 

HU* 

•2.2Wt6U*C2 

2.32*t62t*Q0 

4.4C7CUW01 

0.0 

0.0 

o.e 

ucci 

30H 

HU! 

2,2Wt3it«C2 

2 .4) ) 3)3t *00 

•i.lWCttl-Ol 

G.c 

0.0 

0.0 

llUl 

•  101*11* 

4.29067*WW 

•4.«*44*tk-24 

2.4)*><H-)4 

C.O 

C.O 

0.0 

uuo 

#PP*lU*0 

0.0 

•2.4144441*00 

0.0 

0.0 

0.0 

0.0 

11010 

WQWiPC 

0.0 

0.0 

•7,CS)04|f01 

0.0 

0.0 

0.0 
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C-2  MODEL  PREPROCESSOR  PROGRAM  LISTING 


1.  //  JCl  <C6CtC6,.C9t)  .C22RREC2. CLASS'D 

2.  //STEfl  EXEC  F0RTHCLG.FCH90K 

2.  UMEKSIOK  1CARCUC),1GRIC(2),1ZER0(2),JCH£XAI2),1GR1CS<9CCC  ) 

9.  INTEGERS  NGRID5.U.I9 

5.  CATA  lORir/'GF  ICS*  •/.12EKC/'  C  .  ' .  /.  ICORO/'CORC  •/ , 

t.  MCHEXA/'CHEX  'A  '  /  .NCR !  C  £/*•/*!  1/1/ •  14/4/ 

7.  ECU1 VALENCE  nGEICSn).102)«(lC<R!DS(2),lGl),(lGRlDS(3)«lC3), 

fc.  UGRICSU)  ,10*  ) 

9.  REACH, 21ISTR  IP. ISTRPS 

10.  2  FC-RRATUm 

11.  C 

12.  C  T>  IS  PRC  CM  IS  FCR  EXTRACTING  ECLK  DAT/  FOE  A  PARTICULAR  STflF 

13.  C  PR  CM  THE  MHOLE  E RACKET  MULTILAYER  bULK  DATA.  l.E.  DETAINING 

!<..  C  CZ  MCCEL  BULK  CAT /  FROM  PREPROCESSOR  PRODUCED  Cl  BULK  DECK 
IB.  C 

It.  C  ECK'  STRIP  OAT/. 

17.  RRITEU.6)  1  STRIP. ISTRPS 

It.  t  FCRRATC1STR1R  DATA  ECHO  * ,/ ,  *0  STF  I  P  NO.  »  '.T20.16,/. 

19.  «*  TOTAL  STRIPS  *  •, T20.lt) 

20.  1M1STRIP.LE.1  .OR  .  I STR 1 P  ,GT  .  ISTRPS  1  STOP  99 

21.  1C  R.E AC  (1.1 1 1CARC 

22.  1  FOR  K  AT (20A  A  1 

23.  ]P(lCAR0tl).NE.!CR10(ll.CR»lCARC(2).NE.IGRlD(2))G0  TO  1C 

2*.  IF ( 1  CAR  C ( 11) .NE.lZCROd ) .OK , IC  ARD ( 12  ).NE.12ER0(2) )GC  TC  1C 

25 .  CALL  ClC0NUC/R0<3).l.e,l,|T0P) 

2t  •  1F( 1TCF.LE.1C0C.GR .1  TOP .GT, 100CC1G0  TO  1C 

2c.  nOF2*JTOF*l 

29.  2  C  REACH,  DRAFT 

3C.  IF  ( ICAFOU  l.NE  ,  I CHEXA (1 )  .OF: .  IC  AF.Dt  2 )  »NE  .  1CHEXA  (21 1GD  TC  2C 

31.  CALL  ClC0N(lCARr(71, 1,6,1,101) 

32.  CALL  CICOMIC/Rf  19  ). 1,8,1, 1021 

33.  CALL  ClCOMlCARC(ll). 1,6, 1,103) 

39.  CALL  CICONUCAF.f  (  1  3 ) .  1 ,6 ,1 , 1 09  ) 

35.  IF  ( 1 TCF  , NE  « 1 M ,ANC . 1  TOP ,NE . 102 • ANT . 1  TOP  ,NE . I G3  .  AND. 

3c.  ♦1T0F.NE.K-91CC  TC  2C 

37,  IFUTCF2.NE.K-  1  .AM  .  IT  0F2.NE  ,1  02.AND.  1TCP2  .NE  .  1C3 ,  AND  . 

3t .  UTCR2.NE.IC.9lGD  TC  20 

39.  CALL  Cl  CON (I  CARD (3  ), 1,8,1, 1ELE  ) 

90.  1F1KST-0 

91.  lMtX*2CCC 

92.  9 C  NR1TE(2,1)1CARD 

9;.  R. AC ( 1 , 1 ! 1 CA  PC 

99.  RE  HE  (2 , 1 )  1C AR  D 

9‘,  DC  95  JM.70 

9fc .  9 1  FEA0(1.1.END«90)1CAR0 

97.  I F ( 1  CARD ( 1 l.NE ,  ICHt  X  AU ) .OR . IC  ARD ( 2  )  .NE  .1 CHEXA (2 ) )GC  U  9fc 

98.  CALL  C ICON (ICARrt3),1.8,l,l) 

99.  1FU.LT.100CC1CC  TC  30 

5C.  IF  (NCC  ( 1 » 1  COCO )  .NE  . IELE )00  TO  30 

51.  RR1 TE ( 2 , 1 1 1C  AR  0 

52.  REACH, DICAPC 

53.  R»ITE(2,l)ICA*C 

59.  GC  TC  95 

55.  95  C0NT1NLE 

5t ,  STCF  999 

57.  3C  1ELEHELEHSTRPS 

56.  IF  IF.STH 

59.  35  REAt  (l,l»ENLsl-r)KAPD 


190 


t  c. 

19  (  ICtfOm.M  «lCMX4(l).09.1CiRC'(2).N£.  IChEXA  <21 )  GC 

t 

call  cicoMictr.n* j.i.f . i,n 

62  • 

)f « l.OT.l^AX.ANr.l .LT.1CCCCJG0  TO  *c 

63. 

36 

If  U.M.1ELE1GP  TC  35 

ts . 

If UflTST.l.E.ClCC  TO  37 

ts. 

CALL  C  ICOK  (ICfRf  (7). 1,6.1.11 

tc. 

fC*F  ICS*Nf f  It  i«  1 

1 7 , 

109 ICS  tNGF 10! ) »l 

tt . 

CALL  ClCOMlCASniS). 1.6, 1,11 

6% . 

XGF ICS**GF IC  «♦  1 

7C. 

IGflCSlNGf 1CS)»1 

71. 

CC  TC  90 

7i . 

37 

CALL  C  1  COM  1 1 A  RC  <  11 ) ,  l « 6  , 1 « 1 ) 

73. 

fC*  1C  S  *NGf  IT  5*  1 

7*., 

lev  ic*«NGnr«)»i 

7V. 

CALL  C1C0MICARC  Us),  1,6,1, 1) 

7t  • 

XGR  ieS»SGHCS*l 

77. 

KMDSIHGRICS)*! 

7t . 

CC  TC  90 

79. 

‘C 

1ELE*IMX*ISU  If 

tl  i 

I^A^IMX^ICCC 

61. 

IFlfST.l 

62. 

CC  TO  36 

63. 

9C 

ff 9  INC  1 

19. 

►  HTf  U,3)6Cf  IDS.)  1GRJD$(L).L*1,KGR»CS) 

fei. 

3 

FCMAT(»1‘.H.2X,U5I7,/)) 

6c. 

CAU  2S08T2I  IC  AICS.NGMCS.19,1 1.19) 

17. 

ff  )TE  (6,3)K0f  1CS.1 1GR1DS(L).L«1  .KGUCS) 

66. 

U  99  l'l.MMC! 

69, 

IFCI.M.DCC  TO  59 

9C  • 

c  1 

*EAtCl,l,E».C»53)lCAR0 

91. 

<4 

lFUCAFOll).EL.KDFO)GO  TC  6C 

92. 

1FUCAF0U).»6.K<»  10()).Cf.lC*FC(2)«KE.lCt>ID(2))GC 

TO 

93. 

CALL  C I CCK ( ICA  A C( 5  ) .  1 ,6  « I • J ) 

99. 

lF(ja.fc,lGFll$U))CO  TO  «1 

96. 

Vf  1  TE  (2 . 1 )  1C Af  C 

9t. 

CC  52  4*1.70 

97. 

»EACU,1.EKC««3)ICAR3 

9t  • 

IFUCAFOUl.M  .UM0(1).CR.1CAFC(2).KE.1CF1D12))G0 

TO 

99. 

CALL  C1C0MICARC(3  i.l.S.l.K) 

ICC. 

IFU.LT.ICCOOGC  Tl  99 

101. 

9F1 TE 12 , 1) ICAR  C 

9  *  * 

4  V  6  t 

*2 

CC9T1MJE 

1C  3. 

57  C  *  599 

1C  9  , 

tc 

V‘1TE (i.l)lCAi r 

1C5. 

ntui.iucm 

ice. 

M  ITEU.D1CAFC 

107. 

CC  TC  51 

104, 

99 

C0NT1FLE 

1C9. 

45 

6KCHL6  2 

UC. 

JTCF 

111. 

EKC 

//C0.FTC1F0C1  CC  CSK*C60606G6.CVT.C22EIM'S.C1SF»$MR 
//CO.FTC2FCC1  DC  CSN»CK606Cfc.CVT,C22bLKS$.LMT»k>TLH)*,DISP»»,CAnc  ). 
//  SFACt*<m,(5  ,*  l,FLSE).CCfc*lR6CFt*.F6,LfcECL*eO.BL*$12E*312C> 
//GC.JYS1F  CC  * 

3*  Of 
/» 


»ww>  i w 
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C-2  PREPROCESSOR 


#  f 

I  i  ** 


ri  1 

i  » 


13 

r 


f  i 


1 


1 


i  » 


■ 

+  tfOF 
kS 

• 

(FIRST  •  t 

NO 


C  IFIRST  ■  o  y— 

I  YES 

SAVE  APPROPRIATE 

SAVE  APPROPRIATE 

GRID  ID'S  FOR 

ID'S  FROM  CARD 

CARO 

(OTHER  CHEX 

1ST  CHEXCARD 

CARDS) 

1 

_ 1 

nz 

i 

1  H3J 
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l 


uiHt  21  .t 

C  Jt't 

ISN  OvCc 
ISN  C0C3 
"  J  SK  \'v.  C-i' 

lit.  UC!_ 

ISN  tOCt 
ISN  U 07 


i S'*  ;cc» 
1st  ccov 

IS!.  COK 
isn  coi« 

ISN  C013 
1SN  C  01*. 

1  SN  lull 

un  oou 
isn  xcr* 

lit.  0021 
I  St.  CC22 
i  si*  ;o«3 
1  S'*  Uit 
lit.  CvR 
i  st.  ce,*7 
Hi.  cc it 
ISN  CCiV 

1  IN  Cli  l 

ISN  xr 33 

isn  :t  #<* 

ISN  .G3t 

isn  zr3t 

I  IN  i*si 
lo*. 

ISN  cost 
ISN  CONI 
ISN  nGn) 
UN  C0N5 

ist. 

ISN  OC'Nt 
ISN  CONF 
ISN  CONS 
ISN  0030 
ISN  CCS l 
ISN  CC»»i 


APPENDIX  K 

C-2  MODEL  PREPROCESSOR  PROGRAM  OUTPUT 

t  Jv,.  In  )  CS/3eC  HifNlN  b 

Kc*  iHi.NS  -  NAKE«  R4  IN.LH  *01  ,LINfcCNl»St  .SlltRCCON . 

SUUktt.ttUlC.NUlST.NOCfcU.tUC.t'AK.NUtOll.NUlO.Xtkt- 
l  IbcNSIlN  llAkOUOt.lOkltUMmCm.lCbtXAUl.lGkttlStNCU) 
lMeOtf*i  NON  ICS .  1 1 ,  IN 

UU  lOHC/RHON*  */.WfekO/»  w.*.*C'»/,lCORO/,CeKOV, 
«,•*•/.»  ON  It  S/n  / 1 1 1/1/  *  IN/*./ 

I.UV4UNU  ( IGMUSUI  .l02M10kltSU>,l01),UOKll’Sl31,105J, 

♦IlGklUSINI.lCN)  . . 

1 1 AIM  5.2 1 1  Sit  IP.  I  SI k OS 
i  Fu*R4T (213) 

**•  '  * 

C  IklS  POUCH  It  kO«  kXUAtllNO  tUOK  041/  EUR  4  P4*!ll0l*R  ilkit 

l  Hit  INC  *K!lt  tsRtCNtl  t*Utl04tkk  bUCk  0*14.  t.t.  UUlNlM. 

C  Cc  f'LSSL  6UL n  1414  kfcCk  kkkHROCSSSUk  kktUOCSO  Cl  bUK  DECK 
C 

C  ICt-O  SIR  1H  04U 

tNJU(e.t)  m«tlk.lSlMl 

t  KfcttTClSlflk  04 U  tUl  ',/,'CSlklk  NO.  •  *.120. It,/, 

*•  IlUt  SlHkS  ■ 

If  t  lST61k.lt.l.0k.lSTkIk.CT.l51kPS)SUt»  V9 
Iv  tc40(l.niC4kO 
1  kUK*'tT(204N) 

lF(ICA)>Utl).Nt.lOK!lU  )  .Ik  •  IC4R0 («  I  .Nt  .  ICKIl  (c)  )0L  TO  1C 
lt'U04fltn).Nt.l2tfU)).O6.tC*kUtl«).Nfe.UtK0t2noC  IL  U 
LNU  Cl  CON  111  4k 0131, )«t, 1,11 OP  I 
JfUUF.lE.lCCO.Cfc.lTOk.Ol.iOCCCICO  1C  1C~ 

nce2»nop-i 

20  kfcXUll.lllUNO 

irl  1C A»t  ( 1 )  .I.E  •  HHC  >  4  ( 1 )  .Ck  •  1C4FD (2 ) .NE • 10*0X41 2  )  150  10  it 
l -l l  ClCONUC/RkWI.l.t.  1.101) 
liCO  C  110'M  It  4K0I VI « 1  ,1  .1.102) 

(4u  cjcoMictKcnii.i.e, 1,103) 

CALL  C  ICON t IC461U  13), lit. 1.1 ON) 

lMlTOi-.Nk.H1.4Kt).nOk.NUlO2.4N0.1UP.Nt.lO3.*NC. 

*nj9.Ni.itN»oc  u  u 

lr  1 t lUk  2  .NO •  101 .4NC  .  1 1  (Jt  2  .Nt  •  I G<  .  IH.  1 1UP2.Nt •  IO3.4N0. 

♦  1 1 vP2 .Nt .  I0*>  ICO  10  a 
UU  C 1  CON  1 1  (  4RC  ( 3 ) .  1 .  k  .  1 . 1 1 LE  )  ' 

Ifl»S7»0 

IR4X-2CCC 

»c  .,!iti<,llic;(. 

UiUU.llU/kk 

...in  u.niu*.; 

On  ■»?  J«1.TC 

Nt  6c40U,l.Et.(«VCnC4kt 

lk  1 1C4N0 1 1  ).t<l.lCH|X4tl)  .06.  ICXkO  (2)  ,k|«  ICHEX4I2  1  )0U  TO  Nt 

cuo  ucGMicmm.i.k.i.ii 
Ikll.Ol.lvCCC  too  11  30 
1H**UCU. lOUO). Nk.lkOfclOL  10  30 
1..1TE  (2,1 11C4ND 
kOAOil.lltOtkO 
UllfcOt, 1110400 
GO  1C  N5 
Nt  t-\U\OE 
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IS'*  COts  S10P’9V9 
-T$VT05«r'  30  JEIE«UU*ISTW»S 
1SN  105!.  IHRS1»1 
UN  OOtt  35  KAOtl.l*fcNO«VOMUFO 

1SK  C9ST7  '  IF  1 1C  ARC  (I  >  iNi.ICMOA  U 1  .OR.  1CARC  t2  )«NC.  lCr-CXA  (2  )  100  It  35 
UN  005V  IAU  C  ICUM  llARbii )  .1.5. 1.1) 

UK  ;06C  IF  (I. Cl. IHAX.ANO.  1.11.10000)00  10  5C 

isvoot;  3 1  iFn.sr.umro  7c  35  —  •  • 

UN  C6fr«  1MIF1RS1.N5.010U  1C  37 
Ul.  vote  CALL  ClCONUOAROUI.l.b.l.l) 

UN  CCtt  NCRlD$»NCFirS«l  ... 

Ul.  COtt  ICRUSINCMISLI 
Ui.  CvtV  UU  CICUMIURCtU).  1,6.1.11 
'!$»*  CC7v  N0R1CS*N6RICS«1 
UN  CC71  URIUMNOMOSLI 
UN  007.:  CO  10  *C  • 

1SNXC73  37  CAU  C  JCOM 1CAR0U1 1 .1 .« .1 .1 J 
UN  007«  NOk|OS»N6RlDSvl 
UN  CC7!  URIOSINCKIIS)*] 

*ISM  C97e  CAU.  CICCNUCARDIW.I. f, 1.11 . . 

UN  C077  NGf»tl)S«NCR10Svl 
UN  007b  Un!US(NGK!C*UI 
UN  C079  Ct  10  VC 
U  *  OOK  51  IfcLC*  LAA*  I!  IMF 
UN  0051  IH**.1*A»*KC0 

1WX0K  1F1*S7«1  -  "  •  ~  . . .  *  •* 

UN  0003  Oil  10  3t 
UN  QCbv  vc  NkNtNO  1 

UN  COPS  Nn !1E(t  .3  INCH  OS*  l IONICS (0 1 .1*1  .NCR  1 OS  I 
UN  C05t  3  FC«»>A!(«}'.U,2>.m!7./)> 

UN  00b7  CALL  ISQFUt  10RUS.N0MI  Si  IV, 11.1*1 
13N  OCPC  V«11|U.37N(SRlDS.UCMDSlU.C»l.NCRlOSr 

UN  C0tv  U  99  Ul.NCH US. 

UN  COVC  IH1.N5.11U  10  VV 
UN  CON?  91  UAL’U.i,CNC»V3)ICAK 
UN  0093  9v  IFIlCAKCm.U.ICOFl >00  10  60 

UN  C095  IFUCANOin.Nt.lORIOm.ON-lUvCUl.Nl.URIOUnot  !C  VI 

7SN  0097  CAU  ClCONUCARDtSl.l.P.l.J) 

UN  COVfc  IHU.Nk.lOMOSUHCl  Ul  91 
UN  0101  NfcllfcU.lillAKO 
1SN  C101  I'C  92  J«l,7r 
UN  C1C<  NCAbll«l.SNf*»V3)lCtH' 

IV*  CHS  IHIU-HU. M. tOMim.UHlCAROti). H  .UMDUmi  10  W 

un  tin  uu  citcMiuRooLi.t'i'Ki 

UN  vUt  lFlK.il.  1C0CCICC  10  VV 

UN  Cltib  Kki 15 (2.1 1  HARD 

UN  C10V  V2  UMlNUC 

UN  Clll  Slop  999 

un  ciii  tc  uiicii.inuRo 

UN  Cl  12  -  NtAJl  1 .1 ) lOANl'  - 

UN  Cll?  fcRIICU.lllUNl) 

UN  C11V  00  10  VI 
UN  Oil!  VV  0UM1NU 
UN  cut  V3  fcNUFUl  2 


IhN  ci 1 7  iiow 

iSN  CUt  '  '  •  END 


MkIk  UU  Knl 

SIMt  NO.  *  5 

tom  vnuFs  •  -  5 


iy.  urt  1:1c  lei**  ion  un  ic  ^2  11*7  n*e 

KJV  HsJ  10«*»  10*6  IOM  1 0 1>  2  lilt  Ktb  l?fcj 
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HjJ  1. 
Ut«. 


•33L*2Zab$&i ewcur**^  g£^  I 


**  **  »V 
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?T  ,nT  RUN  QTTTPTTT  AND  UNDE  FORMED  PLOTS 


tilmti  {'■<  rk/u  HAvlkAh  j/M/m 


U  I.  V  I  *  A  I. 


,  ,  i  I  n  I  I  V  I  A  > 


,  »,  |  r  |  ll  l  I  I  t  l  II  II 


I’llll  l  I  ti  .I*  It  VIM- 
Via  dA 
MM  »A 
U|AU  h.lA 
-till.  .  j  * 

I  At  I  I 
I  Mi  At  ll  t 
Cl  III! 


M!Hl  \t.t  11-HAM  •  »  •  »  IHH  H'llllM  VIM* 
td-fM  -HMllllVIlk  IkM-UlM  l'l'l»  *‘A  A 


in  ivlli  HAVIkAH  J/M/IU 


l  I  I.  1  ►  l  l 


.... .  .  wit  id..  ii'i'AVi  .1  u  miK  imiiiai  VIKII- 
VUI.IIUI  •  U'Tk*  •l-K.U  VVI.K  1-MU  UU  l  out*  W*>* 
uiiiM.iu-iim  ,  , 

tain  ilk  r.«vln«h  nul  »ii 
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.241)0 

.2400 


-53;oooor*;iooo- 

43.0000  ,0 
-JC.OOUO  .10U0 


I21040'"100-^r— 12400  “•  3010000-10 


121043  100 


,2400 

,2400 


13,0000  ,1000  * 
13.0000  ,0 


'—  CKID" 
CKIU 
CKIU 
CK10" 
CKIU  * 
CKIU 

— mo5i- 

121052 
121037 
*"•  121051" 
131009 
131014 

:  — i 

1  o  o 

•  •:  oti 

f  * 

— 772  4  0  0“ 
,2400 
.9100 

-•'79100  “ 
,6291 
.6700 

"To 

.0 

*71000 

.0 

UOOO 

iO' 

,4200 

,4200 

,0  ■  ■  1  ■'  1  ■■  , 

,1000 

,1000 

*’-  V 

* 

"  *  * 

GRID  " 

—  131015" 

•  « 6700 

•  woo  .a 

CKIU 

131016 

.6500 

.4200 

.0 

CKIU 

131021 

ICO 

.2500 

:  75 .01)00 

•  louo 

CKIU 

131022 

.100  * 

*  ',‘2500" 

7570000’ 

.  0* - -  »**"  *9  f-T 

IT*TYM4I 
*  9 

r— . 

r-  •  •  »►—  "•  '  ,1  1 

'V  1.4 


Kl.irt  1 
U-|U 


U  li«‘4 

.■)  i  >  i  i,n  i  *  > 

HIM 

511  ll* 

1  L 

1.1  n  1'S/O 

»  '  iul 

1  1  II, .1*1  1 1  Ml,  < 

■  IA 

V 

U  K  l  l 

.  U  U  l 

►  l»  A  1 

A  t  L  II  0  4 

ciumi 

.  1 

•  7 

•  •  3 

•  ♦  H 

•  «  t* 

•  l.  .  • 

/  ..  0  .. 

svi- 

1.)  II. 

Ul< 

ICO 

Ct  .1  Vl'4 

.1000 

*»*>?- 

CKII, 

1311.6 

il.u 

a*itU 

ftO.VlVdJ 

CK  1 U 

lAlt3j 

100 

.1000 

Cl.ll, 

UH  34 

HU 

.*S4‘U 

<|!l«UOUO 

,( 

* 

(Kill 

1311  *34 

HO 

.k'iOO 

SC.  0)00 

.  loOO 

h'A  - 

CK  II, 

1  All  40 

HO 

jo.coao 

VW- 

I.KI  II 

1 '3 1(^5 

HU 

Ib.OCOO 

.UlOO 

<»bb- 

CKIU 

131C4K 

H'U 

.2  no 

15.0000 

.0 

(.Kill 

131(51 

UU 

6^t>CO 

.c 

,UOQ 

■u.O- 

CKIU 

131C5*7 

H.O 

.2100 

.0 

•  0 

IK  III 

131057 

;o 

•  1000 

(Kill 

13 1(56 

.vioO 

•c 

.0 

IIMUAIA 

IU|Al  (MINI, 

462 

I, A3  IRAN  .  3/11/76 


9  ..  10  . 
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HUlil  I  l,2';2  (111*5.1  'III  t  Ail  t  IH  Hill.  S’lAIr 
C2-l*Kl-sl'ii(iCl  vllil  .1  i.u.iiiCi  li  fl'l  I  tlf-I.V 


II  I !>■  I  K  !•('/«)  HAAIhAh  3/ll/tb 


II  I.  U  IK  A  I..  S  U  U  K  l  I*  I*  A  ll:l.  f.l  *'  ItM  I  L  A  1  I  U  b 
IlHAHrllKAl*  HlblKlX.1  HIU 
till. 

1  l  l  tllt  HU..  :•<  LINIAK  iUlll  AMIYUi  I  Jllb  IV/I  I 

2  HAbArt  //|l|*Ulb//A7  *  .... 

•)  Hit  .|ih*SAVL  /  M.N*SAVL  A'HI.MHVl  »i 

A,  MIL  m,«A|l'hMi/l‘l'.t*AV hlKU/til,V*AI'l;lMI  A 

!)  bllVAl  //V  ,|.,CAKI)Ml/(>  1 

fc  bllVAI.  7  AV  ib  tllttllb/  l/V  il.  il.lihlil*/- 1  I 

7  VI  I VAl  //V,b<NUMa»l  -1 

b  VI  I  VAl  7/V,li,ltilMCIi»/l  I 

!i  iKl  LHmiiiiciiM.,./li'i.,ioi »i|*,U‘iii((.iih.iti.i'i.itVli/v.h.Luvi.i/o/v,n, 

nm.Hn  » 

10  Lllr.J  KllKKil.I.I.I'lll  V 

u  ii  t  ct  iii..  ii-yi  *  ii./t  1. 1  i 

12  Cil  AtU  HU)l't2/HKiW/2AV»l.i  JUHHI 1 1<1  I 

15  U.l.ll  Hl.JimHHIUl  1 

1A  hah'aiv.  7/t.lMitiri//A/  » 

IV  I'l  IllitUV  UILH!  ttll  ,m  .ill  .i;i)UII..IH<t'lil/l,lCl*l‘iUil't«IH,Cul.l,Ul/4iM* 
IlhliOT/C  ,7  tlif  A 

II.  IU>IV  U:UII.»HlOlil/ilhilrtMI.I»Hl  l/NliUUY/HlHUI  »HblHUl/l(l|UOY/  blCil'AH.'/ 

HlihUY  l  ' 

17  HllSCt  l>aiHiHCUlMH.Cl/l'Uit  IXil'llCAKiVPVnSiklVUS/StNiHVa/  S,h, 

jumior-i 

lb  XHM'M.  HCIHAKiOHSl  liitliLlV  I 

10  HlrtVC  Hll il  u//  I 

20  VIIVAL  7?VTlMl'UHlf.7l,  /  »• 

21  ll.bil  Hl,Jl.HHHlllll 

22,  HUll  HI  IHAK.UHSI lt,H  VUS  ,CA  ilCC  .HUIHI  l.,U  Wit..  HSU .  ,ICI ,  ,/PCU  U1 A 
n'iU/UiiUVVlN.JOhHHLUl/i.N.HUHOVV.N.HMU  » 

25  Hi  1, Aili.  -HLliUW/t 

23  UIT'I 

2A  UiU,  HI  I 

2S  HAIArt  //Iiuwm//Al  I. 

U’J  l.lliHItmiAlli.GtIIIW/SUtMr/O.'ViliiHM.KAV/O  ♦ 

tr  tniiii  uumv.KUiv  » 

2t  >'AI,  il.llilHl  illLHlIl  i  ill  il  1 1 *,  IhAl  ill  »U  I  ,/V  iNtLOitl/O/  i.bi 

lilii IHH/ 1 /S il.il.lillt ni/iihidl.l l  I  '  •  '■*  * 

20  UUul  CiM  l  liG  ,mlVlhl‘  l 

30  HAMb  2/U 1  At.lll H//A I  « 

31  tKl  I  bVilblb'HI'ltlll  I  tlUII-2i  i  i/AttH*MlllliH‘lll.||lUICl  i  a2iiNiNII2llA2 

i,Kimi»ir.iA/o///r,»,ciiuiMii  * 

32  l  W  Hll  I  KILH.MIIUI  1 

33  O'KHNT  HllM.HlIIC!  I 

1A  HAI  Ail  //|i|l(illb//s7  A 

JV  .HU'ifc  AU-A/UIIMIA  I 

3b  CIII.U  U.I.AI  .NIIlUU  I 

37  li  t  it'll  7  iAUIC.I  il  Cl  h»  bliHUI .  VII  il  V  Ib/Miit  i  I 

ib  Ul'.fcl  LlhAl  I 

30  t'llllt  HUil/l.limiUA  A 

ao  iiitui  iHiiii.mmct.*  i 

A 1  tl.A  I’ll'l  l  liHHICliH  lllililHIl  till  ilVIO/hCUi/*Hl  .YiblH.AViU.  A 


2.08 


►.null-'..  IiiiAII  It  1.(11  Ullliit  lit  lr 
CX»HM  >Hill:Cl44tiK  IHtiiillllli  Hilt  III  I A 


Hit, fit  J!.,  10 /It  NA4IKAN  i/unn 


*1  4}.«t,|l  It. If.  till  Hill  lilllUl  I 


Hill  Ilk  lit* 


tut  HillUltINI.  Him  l  III  I IIK  A  NAlllll  Hint  III 
H/.I  uK^jf/l  •  ,0.0  X  Oil. Of  HAHfcH  l(H  •  VlLLliH 


hu  i  *•  m/i  i.  iii.au 
HI  Ii  O  *  SI /l  It  ULAU 
Hh  I  <  m/I  It  III  AIK 
Hit,  <1  •  m/H  It  HI  AIK 


tNlilNttKltlO  U  A  (  A 
lit  IHUIHAHHII  HmiJlllllll. 

KIllA?  lllNU  lltllHUm  •  GAtlHA  »  <1.(1  ,  Jill  A  •  0,1  ,  AIHI1A  •  U.l  .  AAL  l  •  ,/,.*,.(,  41KHt  IK  11 

41AU  |lltlJH1>  ltl»Hllll  m/u  •  *.M%AHt«OI  '  . . 

UK  II, I N  «  *  *0  •  /.lOV/V/t  .01.  10  •  ••/,<  OUOStl'OI  UNIHim 

l  I  4  t  Uf  H  l  II  I  4 


Him  )  ONUlf  liKMl  U  4HAHI. 

Hli|, 1 1  I J Il'lllll  .1  U  I  All  I  I  Ill'll  III  IH 
1/-HM  .Honu  44IIK  I'KlIlmll  H  .:■>!  t  114  I A 


II  lull  /'),  1110  I.AIIKAN  4/II//H 


HI41AII4  I  tun  lilt  Him  null'll 


l»  l  U  I  1  I  1  0  A  I  A 


111 H  Hlilll'ttlM.  HIHI4  AKI  I  UK  A  HA  4 1 HI  I  HlUlllt 


H/l'tH  41/1  •  }  i.'J  A  JO.Ot  HAHlt  I  (Hi  •  (klllH 


HI  K  I  •  41  /l  I.  HI  Alt 
I'll.  I  •  41/1  1.  HIAIK 
Hit,  i  •  41/1  I.  HI  AIK 
HIM  n  •  41/1  It  HlAUt 


HlUUI  tk  Ihli  U  A  I  A 
OK IHUIHAHHII  KKUJICIIUN 

KUtAlliMS  I011KU4I  *  IAHHA  •  -IP. 00,  OH  I A  •  iO.tCi  AlHHA  •  >40.00!  AA14  •  •/,*  A,*l.  4tMtlMl 
SCALE  lObJlll*IU-Hll.l  Sim  •  3.1AM>»H*01  . 

II!  lit  It,  t  -  10  •  /.«.«/«. /  //I  «01.  to  •  -O.kOUC't'/l-OI  I  INI  HI  4 1 

UICIK  0  >  AO  •  1 , 7HSt  001  API  t  10  •  >1  .OVOAOtUOl  IIMtlil4l 

ini  m  tun 


Him  i  Until  HLKHllI  4HAHI 
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. , , I'm-'.i  „-i  iii. >n  iMiii/i  :.im 
*  Vtl*l'M  *i'k(.(.i  ssi.t  Iim'I.iiOI  nit  u.\l» 


IlSSlttlt  I  Mlf  till  I'LU  I  r.llilUI  I 


»*  L  II  1  1  >  K  util. 


II, L  I-UUIih  11,0  Hills  trl  I  UK  i  MS  I  111  KIH.IH 


i*titK  sin  •  »o.u  *  /u.u,  Mit*  111*1. •  viuut. 


1 1 u  i  •  si/t  w,iiitti> 

Hu  i  •  tm  I.  Mitt 
rut  i  •  swi  it  m*u 
hi.  s  -  sin  I.  nun. 


t  m  l  i.  I  t>»  is  t  11*1* 


|.k  IhUltHAHlIl  ItitIJLCIIUli 

kUUIIUNS  tliltkfckSI  •  u»ur*  •  MU, 00*  lit  I*  •  /O.U,  *11*11*  •  -DU.UO,  «l,t  •  UilltUi  SimiKIt 
SULi  (UBJUI-Ill-HLUI  SI/!  I  »  N.JMVJCi  -OI  -  - - - 

«  lit  lull.  (  •  *0  •  l.VISIU  IKlt  TO  •  -V.l  CU0*1l-0t  IIHIMS1 

OKIOIN  b  -  *0  •  l.>«b!AU*01.  TO  •  -I  .b»*»bCl*0l  ■  IINCKSI 

IHUIN  7  •  *0  «  i.JOtbSH  Hit  TO  •  -k .SCbbtbk *01  (INlHkSI 


LIST  li  I  r  l  li  I  S 


Kit  I  i  UMUIHlKHklt  tli*K 

14 

B 


uiufii  /•<,,  we  m» sir *ii  j/n/nj 

* 


« 


*> 
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pos.it.  u>.  mim  ,-i  ii  mu  iKiuia  Mi  ir 

C2-PM -VftiiCi  Min  t minin'  .'Ui  Ot I* 


itii'iiK  is,  riin  niiiKtii  *nut« 


w  i»ti’.  I  mi*  till  1-1111  mlttiM 


p  i  o  I  t  t  i  uii 


111  hill)  Iin  IMi  PUIIb  All  till"*  h'.blPU  Pllllltb 


V 


PllUt  ill!  •  iO.O 


«..o,  ptpttt  iin  •  mun 


HI.  |  •  lilt  1.  Ill  ALU 
lit  i  *  5.WI  I)  IH.4U 
ni.  i  *  bin  I.  tii»u 
III.  s  •  bin  I  I  <ttAU 


t  N  0  I  I.  I  t  K  till  Dill 


hi  iiioiiMipnli  I'pujic  i iiin 

MllAIIUlib  IPttKl  tb  I  •  HIM  •  •KtUOi  Hit  •  YU, It),  ALPHA  •  *111.041  mb  •  •<«•*.  *1.  bVHHklltll 

buu  niuju  i-iii-pli.i  bln  I  •  s.ib/'/'m 'til  "  .......  ~ . 

ni uii.  i  •  »ii  •  .’.s'Himii'i.  io  •  •<Mtoa<iVi*ii|  tiNmibi 

It  1011.  %  •  »n  •  l.lHOfSUlil  1,  Y0  •  •l.VbSAbCHU  I  INlPtb) 

Ull.lt  I  *  ««■  l.l  0SVMU.III,  10  •  -.'.llbbm'Ul  UNlHtbl 


l  I  b  1  ll  I  p  l  II  1  b 


PI  III  s  IlhilUIlKMtU  b II API 


i 


r 
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N09EL  C2.  2  (PHASE  2)  1J  (.AVER  CRITICAL  STRIP 
C2-PRE-PROCESSOR  PRODUCED  BULK  DATA 

UNDEFORMED  SHAPE 


unnri  (*2  2  (PHASL  2)  13  *  ATER  CRITICAL  STRIP 
C2?PRE'PROCE$SOR  PRODUCED  BUUt  OAU 


UNOETORMEO  StUPE 
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APPENDIX  M 

SINGLE  STRIP  NASTRAN  OUTPUT 


*»»«(«»«««*•**»•»* 

**«***44«****»vj*» 

*  « 

♦  * 

*  » 

♦  * 

K  A  i  1  K  A  N  •• 

♦  * 

Hit  -  Sb  *  * 

*  * 

Vlkbll.k  kAk  H.  is/a  *  ♦ 

*  * 

lun  it C-J/K  btk  It i  *  ♦  v 

•  * 

KUUtl  fj  ♦  ♦ 


t.lluill  <D,  IV/U  HAblkAk  4/II/4D 


k  A  >  I  k  A  k  I  I  tl  ti  I  m 


U  A  IK  III  LICK  I  I  II  ll 


ill  U<mW.  SUtkAtA 
SW.  its 
likt  its 

UUb  It. IS 
UlAt  it 
(ikkll 


I 
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llNHUblll  UKAlKl  I  MUUl  l  i.t  IblAlK  till  t,  HliAbl  1 1  UlltlPtK  i!0,  l*/n  NAbIKAh 

INt  MKII*  Alllhl  b*H  Uhl  Ml  111  1J  UNI CUAl  l  A II  Kb 


l  A  b  t  CUN  I  K  U  l  II  t  l  K  IChU 

CANU 

CUUNI 

I  IIIU  •  lUHHUblll  bKAlktl  MUCH  U.it  l  b  I  AIK  btU  l .  HhAbl  2 1 

t  bOBUIll  •  Utt  bIKIH  AlUhl  bit  UNI  »llh  13  UNICUAl  UUkb 

i 

S  »  UhllKl  MiUfcl  Cl  HUN,  lUAUb  AHt  NUN  AKUItU  Ab  t  bUtlAblb 

b  t  Mllli  ItlKKibHUNUlM  HUUKUAKI  lUNDItllKb 

t  « 

I  III  I  •  iolHi  lllb,  IU<I,  >U<|  1U  tl,  I  Cl  a  i  IUAAi  IUJC. 

a  1U31,  iccui  lusbi  tusc,  lUblt  Kill  lub  1 1  link. 

1  UlUlN.lAlOlb.lAlUkl  ,UlU<l,  ti»C2<,UI02B,IJ|UAA,lJlim, 


10 

lll01‘i,mC'M).l4l0<.b.lJl0<.l.UI0bl.lJlOS2 

.lAlubf ilbiubk 

11 

UtUAU  •  All 

w 

oibHi  •  au 

u 

bIKtbb  •  All 

\<> 

SHIUMU  •  All 

lb 

kbfc  •  All 

Ik 

CHHUKtt  •  1 

n 

» 

i» 

SuuUSk  1 

in 

lAktl  •  liNIMJKh  mi.  NbHltNt  lltNb  UblU  HUN 

HAKAlUl It  UlblN 

2  c 

•HI  •  20  kblbHl  klb  IKON  11  HU.  bUklUH  i  ♦ 

NAbHkK  •  b«H  klb 

21 

A 

it 

bUklAbk  2 

ii 

lAHl  •  ClUlKklbt  lllUHlk.  KbHIINk  klHb  UblU 

HUN  KANAk  UlblN 

21 

bHl  •  tl  AUlbHl  klb  kkOK  U  KIN,  bUOlUh  *>  • 

wAbhlk  •  bIH  klb 

2b 

itt In  kuu 

i/ll /Its 
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lUWU&lll  tfN&cM  I  NuUtl  IblAU  iiC  t%  I'HAil  i\ 

UNt  51MH  ALONG  5  IN  i  |M  H|  |h  IJ  UNICOM  lAtthi 


1 1  luut  \  it »  iv  to 


NA l IH AN  it  11/ tO 


b 

II  k  1  l 

0  6  0 

Ik  0 

A  1  A 

t  l  H  U 

CAHU 

CUUNI 

.  1  ..  2 

.  .  3 

..  S 

..  0 

..  6 

..  1 

..  6 

..  V 

«  « 

JO  . 

l- 

IbAK  t 

0 

201 

HOI 

1002 

2 

lb  Ak  2 

0 

202 

1102 

KOI 

2 

i* 

IbAk  3 

0 

201 

202 

1001 

2 

<i- 

CHI  AA  IUU 

1 

IUU 

100s 

ICis 

1010 

11016 

HOUV 

♦ 

D- 

•  2VVI101S 

1101b 

6  * 

Chiaa  <oob 

2 

1010 

luis 

1021 

1022 

11010 

HOIS 

♦ 

465 

/- 

*  otoiion 

11022 

b* 

llltAA  <U1U 

2 

1022 

1021 

112/ 

1026 

11022 

11021 

♦ 

C4U 

V* 

•  S30H02 1 

11020 

10* 

CHIAA  20lb 

2 

1020 

1121 

1033 

I03S 

11026 

11021 

f 

CV5 

U- 

•  *V911033 

1103b 

U* 

CMC  A  A  2020 

2 

I03S 

1133 

103V 

IOSO 

1I03S 

11033 

♦ 

5  tU 

u* 

<  9tOII03V 

HUSO 

IC- 

Oil  IA  102b 

2 

IOAU 

11. v 

IOSO 

lost 

HUSO 

.  1  103V 

♦ 

C45 

15- 

•  6201  lost* 

nust 

16* 

llltAA  2030 

2 

I0S6 

ioso 

1001 

1092 

Host 

lloso 

♦ 

*vu 

41- 

•  evOlIObl 

11002 

lb* 

llltAA  3009 

3 

1002 

Icbl 

looi 

1006 

11002 

1 1001 

♦ 

<55 

IS- 

•  I901IU0I 

llUbn 

^0* 

llltAA  1 1012 

11 

1101b 

I1C0V 

nets 

1  luio 

21016 

2100V 

JVO 

i\* 

•  3U02I01S 

2 101b 

<r*- 

llltAA  1200b 

12 

1 1010 

HOIS 

11021 

11022 

21010 

2101S 

• 

m 

<!4- 

•  3662102) 

2 1 022 

^C- 

llltAA  1201C 

12 

11022 

11021 

1)021 

11026 

2)022 

21021 

♦ 

C4| 

*5- 

•  S3WI021 

21020 

it  - 

ChtAA  1211b 

12 

11020 

1102  < 

11033 

IJ03S 

2)026 

21021 

♦ 

CSC 

it' 

<  SV02I033 

2103S 

^a- 

llltAA  1*020 

12 

I103S 

1 1  C  33 

1  1  03  V 

Host 

2  103S 

2  1033 

♦ 

5*4 

4V- 

•  9tl*IU3V 

2losu 

jO- 

Cllt  AA  1202b 

12 

huso 

11C3V 

HOSO 

nost 

2  IOSO 

2103V 

♦ 

tt* 

il- 

•  0202 10SS 

2  lOlt 

Jrf- 

llltAA  12030 

12 

Hist* 

11  OSS* 

Hlol 

1)002 

2  l  USt 

2  IOSO 

♦ 

*S4 

45* 

•  oVI*lobl 

21002 

4C- 

l III  AA  13000 

13 

11002 

1091 

11001 

11096 

21002 

2100) 

♦ 

<56 

>5* 

•  196*1001 

21000 

46* 

llltAA  2101< 

21 

21010 

2130V 

2 1  CIS 

2)010 

31016 

3100V 

♦ 

4UI 

4  1- 

•  3013I01S 

31ul0 

4d- 

llltAA  2200b 

22 

21010 

2  1 1  IS 

21021 

21022 

31019 

3101s 

• 

4t< 

4S- 

•  36 13)0* 1 

31022 

CO* 

IMIAA  2*010" 
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APPENDIX  N 


1.  AFFDL  -  Air  Force  Flight  Dynamics  Laboratory 


2.  AFML 


3.  AGARD 


4.  AHS 


5.  AIAA 


6.  ASTM 


7.  DTIC 


8.  GIDEP 


9.  NASA 


10.  NATO 


11.  SAMPE 


12.  STAR 


13.  TAB 


-  Air  Force  Materials  Laboratory 


Advisory  Group  for  Aerospace  Research  and 
Development  (NATO) 


-  American  Helicopter  Society 


American  Institute  for  Aeronautics  and  Astronautics 


American  Society  for  Testing  and  Materials 


Defense  Technical  Information  Center 


Government  Industry  Data  Exchange  Program 


National  Aeronautics  and  Space  Administration 


-  North  Atlantic  Treaty  Organization 


Society  for  the  Advancement  of  Materials  and  Process 
Engineering 


-  Scientific  and  Technical  Aerospace  Report 


-  Technical  Abstract  Bulletin 


14,  USAAMRDL  - 


U,  S.  Army  Air  Mobility  Research  and  Development 
Laboratories 


15,  USAMMRC  -  U.S,  Army  Materials  and  Mechanics  Research  Center 
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_ Composite  Joint  Test.  Panel  "A" 


INTRODUCTION 

This  report  summarizes  the  static  and  fatigue  strengths  of  the  joint  and  fitting 
test  specimens. 

Section  1  covers  the  wrapped  Tensioh  Fitting  (Tailboom-to-Fuselage  Attachment), 

Type  A. 

Section  2  covers  the  Gearbox  Attachment  Fitting,  Type  D. 

% 

Section  3  covers  the  Seat  Attachment  Fitting,  Type  K. 

Static  and  fatigue  analyses  are  included  for  types  A  and  D.  No  fatigue  analysis 
was  included  for  type  K  since  only  static  tests  were  conducted.  Loading  conditions 
used  for  analysis  are  Identical  to  the  baseline  metal  part  loads. 

The  purpose  of  the  program  was  to  study  the  feasibility  of  constructing  such  joints 
and  fittings  and  predicting  the  static  and  fatigue  strength  of  the  fittings  for 
application  to  future  aircraft. 
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DISCUSSION 
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dition).-  Fatigue  endurance  limits  (E.L.)  were  then  determined. 
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